add some debugging information

diff --git a/delay_mail b/delay_mail
index dbe7d0d52d15d13f4d6c6d5c4386b9874fa0b7c0..854dacbab577b3ad048c5186f4bca1eaa1cec5a5 100755 (executable)
--- a/delay_mail
+++ b/delay_mail
@@ -194,7 +194,7 @@ elsif ($options{list}) {
          last if not defined $entry;
          next if $entry !~ /^\d+$/;
          # they're also just readable files
-         next if not -f $entry or not -r $entry;
+         next if not -f "$options{queue}/$entry" or not -r "$options{queue}/$entry";
          print STDERR "Still dealing with $entry\n" if $DEBUG;
          push @queue,parse_queue_entry($entry);
      }