$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;