exigrey.pl
changeset 29 74c18818ee24
parent 27 7062e28b526b
child 31 7d2c9f3186f4
--- a/exigrey.pl	Wed Jan 03 11:57:47 2007 +0000
+++ b/exigrey.pl	Wed Jan 03 12:04:26 2007 +0000
@@ -135,7 +135,8 @@
 
 	    $/ = "\0";
 	    delete $h{$_} while <$tmp>;
-	    print "$. items deleted from $db\n";
+	    printf "$. items %s from $db\n",
+		$opt_purge ? "purged" : "deleted";
 
 	    close($tmp);