blob: d38f301ac304e495d0513347c2e4ecba1ab3c089 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
$NetBSD: patch-af,v 1.1.1.1 2010/12/23 16:55:02 taca Exp $
Remove obsolete perl syntax.
--- src/libkern.pl.orig 2004-02-15 21:37:14.000000000 +0900
+++ src/libkern.pl
@@ -629,7 +629,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;
|
