From: Chris Lamb <lamby@debian.org>
Date: Tue, 6 Oct 2009 22:27:19 +0000 (+0100)
Subject: Reject "dcut rm" components that start with a wildcard
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=b317c8242b13fedf0b6fd672cf537ad720422cc5;hp=49318b3ef26fd96a902b7b64186005074bc53118;p=dak.git

Reject "dcut rm" components that start with a wildcard
---

diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued
index 4a071bd7..af8d70da 100755
--- a/tools/debianqueued-0.9/debianqueued
+++ b/tools/debianqueued-0.9/debianqueued
@@ -1211,7 +1211,9 @@ outer_loop: while (<COMMANDS>) {
           $selecteddelayed = $1;
           s,^DELAYED/[0-9]+-day/,,;
         }
-        if ( $origword eq "--searchdirs" ) {
+        if (m,(^|/)\*,) {
+          msg("mail,log", "$_: filename component cannot start with a wildcard\n");
+        } elsif ( $origword eq "--searchdirs" ) {
           $selecteddelayed = -2;
         } elsif (m,/,) {
           msg(