1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
$NetBSD: patch-ae,v 1.1.1.1 2010/12/23 16:55:02 taca Exp $
Remove obsolete perl syntax.
--- src/libenvf.pl.orig 2003-12-17 23:46:54.000000000 +0900
+++ src/libenvf.pl
@@ -22,7 +22,7 @@ sub __EnvelopeFilter
local(*e, $mode) = @_;
local(@pmap); # paragraph map: the array of the first ptr in paragraph
my ($xbuf);
- my ($c, $p, $r, $org_mlp, $bodylen);
+ my ($c, $p, $r, $bodylen);
my ($lparbuf, $fparbuf, $n_paragraph);
my ($one_line_check_p);
@@ -30,10 +30,6 @@ sub __EnvelopeFilter
### 0. preparation
$bodylen = length($e{'Body'}); # body length
- # force plural line match
- $org_mlp = $*;
- $* = 0;
-
### 1. run-hooks
# compatible
# appending twice must be no problem since statments is "return".
@@ -267,8 +263,6 @@ sub __EnvelopeFilter
&MesgMailBodyCopyOn;
}
}
-
- $* = $org_mlp;
}
# return 0 if reject;
|
