Changeset 2007 for trunk/gsdl

Timestamp:

2001-02-19T12:08:28+13:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -69 +69 @@
 
     $self->BasPlug::init($verbosity, $outhandle);
+
+    if ((!defined $self->{'process_exp'}) || ($self->{'process_exp'} eq "")) {
+
+    $self->{'process_exp'} = $self->get_default_process_exp ();
+    if ($self->{'process_exp'} eq "") {
+        warn ref($self) . " Warning: Non-recursive plugin has no process_exp\n";
+    }
+    }
+
 
     # set split_exp to default unless explicitly set