Changeset 1869

Show
Ignore:
Timestamp:
29.01.2001 12:49:57 (19 years ago)
Author:
paynter
Message:

Regular expression fix.

Files:
1 modified

Legend:

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

    r1757 r1869  
    8888    # slightly more strict validity check, to prevent us from matching  
    8989    # .so.x files ... 
    90     return undef unless (($$textref =~ /^From(:| )/) || 
    91              ($$textref =~ /^[-A-Za-z]{2-100}:/)); 
     90    return undef unless (($$textref =~ /^From /) || 
     91             ($$textref =~ /^[-A-Za-z]{2,100}:/)); 
    9292 
    9393    print $outhandle "EMAILPlug: processing $file\n"