===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/03/23 01:31:41	1.2
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/03/23 01:36:36	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: CurrentTorrents.pl,v 1.2 2005/03/23 01:31:41 andrew Exp $
+#$Id: CurrentTorrents.pl,v 1.3 2005/03/23 01:36:36 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -73,5 +73,6 @@
 #print Dump \%files, \%keep, \@delete;
 
 foreach (@delete) {
+	print "Deleting '$_'\n";
 	unlink "$TorrentDir/$_" or die "Couldn't unlink $_";
 }