22 lines
585 B
Text
22 lines
585 B
Text
Make it work with perl 5.12
|
|
From pkgsrc pr43974
|
|
--- majordomo.pl.orig Wed Feb 2 13:32:15 2011
|
|
+++ majordomo.pl Wed Feb 2 13:32:39 2011
|
|
@@ -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 @x = split(/,/); # split into parts
|
|
+ foreach (@x) {
|
|
1 while s/.*<(.*)>.*/$1/;
|
|
s/^\s+//;
|
|
s/\s+$//;
|
|
}
|
|
|
|
- @_;
|
|
+ @x;
|
|
}
|
|
|
|
# Check to see if a list is valid. If it is, return the validated list
|