blob: 3e82aaaa95dd2150e3cc31f660a86081465f822e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
$NetBSD: patch-an,v 1.1 2010/10/16 10:30:56 spz Exp $
--- majordomo.pl.orig 2000-01-07 12:32:04.000000000 +0000
+++ majordomo.pl
@@ -95,14 +95,14 @@ sub main'ParseAddrs {
local($_) = shift;
1 while s/\([^\(\)]*\)//g; # strip comments
1 while s/"[^"]*"\s//g; # strip comments"
- split(/,/); # split into parts
- foreach (@_) {
+ my @parts = split(/,/); # split into parts
+ foreach (@parts) {
1 while s/.*<(.*)>.*/$1/;
s/^\s+//;
s/\s+$//;
}
- @_;
+ @parts;
}
# Check to see if a list is valid. If it is, return the validated list
|
