25 lines
770 B
Text
25 lines
770 B
Text
|
$NetBSD: patch-aa,v 1.1.1.1 2010/12/23 16:55:02 taca Exp $
|
||
|
|
|
||
|
|
Remove obsolete perl syntax.
|
||
|
|
|
||
|
|
--- libexec/fml_local.pl.orig 2004-02-15 21:39:06.000000000 +0900
|
||
|
|
+++ libexec/fml_local.pl
|
||
|
|
@@ -429,9 +429,6 @@ sub FmlLocalSearchMatch
|
||
|
|
# $s = $_CF{$entry}; so "rc" entry;
|
||
|
|
local(@pat) = split(/\n/, $s);
|
||
|
|
|
||
|
|
- # for multiple lines. the entry to match is within "one line"
|
||
|
|
- $* = 0;
|
||
|
|
-
|
||
|
|
# compare %Envelope patterns given by "rc" entry ($s)
|
||
|
|
foreach $pat (@pat) {
|
||
|
|
$cnt++; # counter
|
||
|
|
@@ -3216,7 +3213,6 @@ sub GetFieldsFromHeader
|
||
|
|
|
||
|
|
### Header Fields Extraction
|
||
|
|
$s = $Envelope{'Header'}."\n";
|
||
|
|
- $* = 0; # match one line
|
||
|
|
if ($s =~ /^From\s+(\S+)/i) {
|
||
|
|
# XXX NO REACH HERE (1999/10/27 by fukachan)
|
||
|
|
# $Envelope{'UnixFrom'} = $UnixFrom = $1;
|