diff options
author | ache <ache@FreeBSD.org> | 1997-10-07 22:16:25 +0000 |
---|---|---|
committer | ache <ache@FreeBSD.org> | 1997-10-07 22:16:25 +0000 |
commit | dc1f7aecabaeb56811d735761eb21b3011eb4ad8 (patch) | |
tree | 55949eaaabb04aacf1334b4e2ac765cd18fb1368 | |
parent | 94074ac64b84839601a4f311a0e095c8b0ff9009 (diff) | |
download | FreeBSD-ports-dc1f7aecabaeb56811d735761eb21b3011eb4ad8.zip FreeBSD-ports-dc1f7aecabaeb56811d735761eb21b3011eb4ad8.tar.gz |
Fix possible regexp botch
-rw-r--r-- | mail/adcomplain/files/patch-aa | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/mail/adcomplain/files/patch-aa b/mail/adcomplain/files/patch-aa index a86b96c..9e10d71 100644 --- a/mail/adcomplain/files/patch-aa +++ b/mail/adcomplain/files/patch-aa @@ -1,5 +1,5 @@ -*** adcomplain.pl.orig Wed Oct 8 01:12:36 1997 ---- adcomplain.pl Wed Oct 8 01:21:22 1997 +*** adcomplain.pl.orig Wed Oct 8 02:02:29 1997 +--- adcomplain.pl Wed Oct 8 02:13:15 1997 *************** *** 1,6 **** ! #! /bin/sh -- # -*- perl -*- @@ -122,3 +122,20 @@ unlink $tempname; close STDIN; exit 0; +*************** +*** 685,691 **** + local ($probe, $each, $result); + + $probe = $text; +! $probe =~ s/^\s*(\S\S\S).*/$1/; + foreach $each ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") { + return 1 if $each =~ /$probe/i; + } +--- 691,697 ---- + local ($probe, $each, $result); + + $probe = $text; +! $probe =~ s/^\s*(\w\w\w).*/$1/; + foreach $each ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") { + return 1 if $each =~ /$probe/i; + } |