$NetBSD: patch-am,v 1.3 2010/10/30 23:48:36 spz Exp $

bring up to perl 5.12 standard (this is old code)

--- approve.orig	1997-04-05 20:18:36.000000000 +0100
+++ approve	2010-08-20 22:22:40.000000000 +0100
@@ -137,6 +137,7 @@
 
 sub process_approve {
     local($FILE) = shift;
+    my @words;
     while (<$FILE>) {
 	if ((/^\tsubscribe\s/) || (/^\tunsubscribe\s/)) {
 	    if (!defined($reply_to)) {
@@ -144,8 +145,8 @@
 		exit(1);
 	    }
 	    s/^\t//;
-	    split;
-	    $list = $_[1];
+	    @words = split;
+	    $list = $words[1];
 	    $list =~ tr/A-Z/a-z/;
 	    $passwd = $passwd{"$list\@$reply_to"};
 	    if (! $passwd) {
@@ -214,6 +215,11 @@
 	    $from_skipped = 1;
 	    next;
 	}
+	if (/^delivered-to: $post_to/i) {
+		# Remove Delivered-To: lines that point to the list, since they
+		# will cause postfix to think that the message is looping.
+		next;
+	}
 	s/^~/~~/;
 	print MAIL $_;
     }
@@ -231,12 +237,13 @@
 	s/\n$//;
 	s/#.*//;
 	if (/^$/) { next; }
-	split;
-	$l = $_[0];	$l =~ tr/A-Z/a-z/;	# list
-	$p = $_[1];				# password
-	$m = $_[2];	$m =~ tr/A-Z/a-z/;	# majordomo@site
-	split(/\@/, $m);
-	$s = $_[1];	$s =~ tr/A-Z/a-z/;	# site
+	my @words = split;
+
+	$l = $words[0];	$l =~ tr/A-Z/a-z/;	# list
+	$p = $words[1];				# password
+	$m = $words[2];	$m =~ tr/A-Z/a-z/;	# majordomo@site
+	@words = split(/\@/, $m);
+	$s = $words[1];	$s =~ tr/A-Z/a-z/;	# site
 
 	$passwd{$l} = $p;
 	$passwd{"$l\@$m"} = $p;