Changeset 3094 for trunk/gsdl

Timestamp:

2002-04-24T13:40:41+12:00 (22 years ago)

Author:

jrm21

Message:

Needed to add failhandle to the init() function, to pass to BasPlug.

File:

• trunk/gsdl/perllib/plugins/SplitPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -66 +66 @@
 sub init {
     my $self = shift (@_);
-    my ($verbosity, $outhandle) = @_;
-
-    $self->BasPlug::init($verbosity, $outhandle);
+    my ($verbosity, $outhandle, $failhandle) = @_;
+
+    $self->BasPlug::init($verbosity, $outhandle, $failhandle);
 
     if ((!defined $self->{'process_exp'}) || ($self->{'process_exp'} eq "")) {