Changeset 2007 for trunk/gsdl/perllib/plugins/SplitPlug.pm
- Timestamp:
- 2001-02-19T12:08:28+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/SplitPlug.pm
r1894 r2007 69 69 70 70 $self->BasPlug::init($verbosity, $outhandle); 71 72 if ((!defined $self->{'process_exp'}) || ($self->{'process_exp'} eq "")) { 73 74 $self->{'process_exp'} = $self->get_default_process_exp (); 75 if ($self->{'process_exp'} eq "") { 76 warn ref($self) . " Warning: Non-recursive plugin has no process_exp\n"; 77 } 78 } 79 71 80 72 81 # set split_exp to default unless explicitly set
Note:
See TracChangeset
for help on using the changeset viewer.