From: cjwatson <>
Date: Wed, 14 Jan 2004 03:01:13 +0000 (-0800)
Subject: [project @ 2004-01-13 19:01:13 by cjwatson]
X-Git-Tag: release/2.6.0~773
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fcb36fc8b302988a4a58b9844b2198380f75f36e;p=debbugs.git

[project @ 2004-01-13 19:01:13 by cjwatson]
Use taint mode.
---

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;