From fcb36fc8b302988a4a58b9844b2198380f75f36e Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Tue, 13 Jan 2004 19:01:13 -0800
Subject: [PATCH] [project @ 2004-01-13 19:01:13 by cjwatson] Use taint mode.

---
 scripts/spamscan.in | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/spamscan.in b/scripts/spamscan.in
index 25b7a3cb..15a4c642 100755
--- a/scripts/spamscan.in
+++ b/scripts/spamscan.in
@@ -1,5 +1,5 @@
-#! /usr/bin/perl
-# $Id: spamscan.in,v 1.1 2004/01/13 18:55:53 cjwatson Exp $
+#! /usr/bin/perl -T
+# $Id: spamscan.in,v 1.2 2004/01/13 19:01:13 cjwatson Exp $
 #
 # Usage: spamscan
 #
@@ -72,7 +72,7 @@ for (;;) {
     if (!@ids) {
 	opendir DIR, 'incoming' or die "opendir incoming: $!";
 	while (defined($_ = readdir DIR)) {
-	    push @ids, $_ if s/^S//;
+	    push @ids, $1 if /^S(.*)/;
 	}
 	last unless @ids;
 	@ids = sort @ids;
-- 
2.39.5