* fix bug in .commands rm-handling

[dak.git] / tools / debianqueued-0.9 / debianqueued

diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued
index 78de89083fe13feff143d4c95b5569bfe629a31a..a54deec906e9705a2a74d75d94e0a5a91a7873ae 100755 (executable)
--- a/tools/debianqueued-0.9/debianqueued
+++ b/tools/debianqueued-0.9/debianqueued
@@ -1327,8 +1327,9 @@ sub process_commands($) {
                                                push (@thesefiles, $file);
                                        }
                                        for ( my($adelay)=0; $adelay <= $conf::max_delayed; $adelay++ ) {
-                                               if (-f $file) {
-                                                       push (@thesefiles, $file);
+                                               my($dir) = sprintf( $conf::incoming_delayed, $adelay );
+                                               if (-f "$dir/$file") {
+                                                       push (@thesefiles, "$dir/$file");
                                                }
                                    }
                                        if ($file =~ m/\.changes$/ &&  $conf::upload_method eq "copy") {