more informative output
authorheiko
Wed, 03 Jan 2007 12:04:26 +0000
changeset 29 74c18818ee24
parent 28 a6f60adbae92
child 30 0ad61ee59889
more informative output
exigrey.pl
--- 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);