add some debugging information

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