===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.32
retrieving revision 1.34
diff -u -r1.32 -r1.34
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/03/03 18:13:07	1.32
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/03/03 18:31:57	1.34
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.31 2010/02/26 22:58:20 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.33 2010/03/03 18:15:31 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -194,7 +194,7 @@
 
     my $name  = $keep{$hash}{name};
     my $epoch = $keep{$hash}{epoch};
-    my $reason = $keep{$hash}{reason};
+    my $reason = $keep{$hash}{reason} ? $keep{$hash}{reason} . q{ } : q{};
 
     #if ($reason && $reason ne 'only') {
     #    print "Keeping $reason instance of [$file] [$hash]\n",
@@ -217,7 +217,7 @@
     }
 
     if ( !$seeding{$hash} ) {
-        print "Starting seed of [$file] [$hash]\n";
+        print 'Starting seed of ' . $reason . "[$file] [$hash]\n";
         if (!$client->add(
                 filename     => "$dir/$file",
                 download_dir => $OBT->{DIR_FTP},