Changeset 2007

Show
Ignore:
Timestamp:
19.02.2001 12:08:28 (19 years ago)
Author:
sjboddie
Message:

*** empty log message ***

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/SplitPlug.pm

    r1894 r2007  
    6969 
    7070    $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 
    7180 
    7281    # set split_exp to default unless explicitly set