Changeset 1869

Timestamp:

2001-01-29T12:49:57+13:00 (23 years ago)

Author:

paynter

Message:

Regular expression fix.

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

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