Changeset 5616

Timestamp:

2003-10-13T16:28:46+13:00 (21 years ago)

Author:

davidb

Message:

Position of @args moved, so it records what the options passed to
the plugin are, before they are stripped out by call to parse args

File:

• trunk/gsdl/perllib/plugins/PDFPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -68 +68 @@
 
     my ($noimages, $complex, $zoom, $use_sections, $nohidden);
-    
+
+    my @args=@_;
+
     if (!parsargv::parse(\@_, 
              q^noimages^, \$noimages,
@@ -84 +86 @@
 
 
-    my @args=@_;
     if ($use_sections) {
     push (@args, "-description_tags");
@@ -114 +115 @@
     $self->{'extract_language'} = 1;
     }
-    
+
     return bless $self, $class;
 }