more meaningful error message
authorroot@pu.schlittermann.de
Thu, 04 Nov 2010 23:09:44 +0100
changeset 13 8ade8810add5
parent 12 b98e281d5a09
child 14 526aad9d2f83
child 28 8239b2754411
more meaningful error message
update-serial
--- a/update-serial	Thu Nov 04 22:26:39 2010 +0100
+++ b/update-serial	Thu Nov 04 23:09:44 2010 +0100
@@ -82,7 +82,7 @@
 		my $now = time;
 
 		open(my $in, "+<", $file) or do {
-			print "?? $!";
+			print "??: $!" if $opt_verbose;
 			next;
 		};
 
@@ -111,6 +111,8 @@
 		open(my $out, ">$stamp_file");
 		close($out);
 
+		print "$file\n" if not $opt_verbose;
+
 		$changed++;
 	} continue {
 		print "\n" if $opt_verbose and defined $file;