Changeset 16699

Timestamp:

2008-08-11T14:07:03+12:00 (16 years ago)

Author:

kjdon

Message:

added auxiliary parameter to new - needed if you want to do new without parsing the arguments - ie want to inherit from a plugin to get the methods and arguments, but its not in the direct inheritance line

File:

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

gsdl/trunk/perllib/plugins/ReadTextFile.pm

@@ -85 +85 @@
 sub new {
     my $class = shift (@_);
-    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    my ($pluginlist,$inputargs,$hashArgOptLists, $auxiliary) = @_;
     push(@$pluginlist, $class);
 
@@ -91 +91 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = new AutoExtractMetadata($pluginlist, $inputargs, $hashArgOptLists);
+    my $self = new AutoExtractMetadata($pluginlist, $inputargs, $hashArgOptLists, $auxiliary);
 
     return bless $self, $class;