Changeset 2086

Timestamp:

2001-02-28T18:01:05+13:00 (23 years ago)

Author:

jrm21

Message:

We create a copy of any args to new() because parsargs might modify the
list, deleting items needed later by call to TEXTPlug::new or HTMLPlug::new

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -92 +92 @@
 sub new {
     my $class = shift (@_);
+    if ($class eq "ConvertToPlug") {$class = shift (@_);}
+    my $self;
+# parsargv::parse might modify the list, so we do this by creating a copy
+# of the argument list.
+    my @arglist = @_;
     my ($plugin_name,$generate_format, $kea_arg) = $class->parse_args(\@_);
-    my $self;
 
     if ($generate_format eq "text")
     {
-    $self = new TEXTPlug ($class, @_);
+    $self = new TEXTPlug ($class, @arglist);
     $self->{'convert_to'} = "TEXT";
     $self->{'convert_to_ext'} = "txt";
@@ -103 +107 @@
     else
     {
-    $self = new HTMLPlug ($class, @_);
+    $self = new HTMLPlug ($class, @arglist);
     $self->{'convert_to'} = "HTML";
     $self->{'convert_to_ext'} = "html";