[m-rev.] For review: automatically update copyright messages

[Ralph Becket]

Missing interdiff:

diff -u check.pl check.pl
--- check.pl	12 Nov 2002 05:04:18 -0000
+++ check.pl	13 Nov 2002 03:15:29 -0000
@@ -155,7 +155,7 @@
 		system("diff", "-u", $arg, $tmp);
 		if ( query_user("Accept the version with the updated copyright message?", 1) )
 		{
-			system("mv", $tmp, $arg);
+			system("mv", $tmp, $arg) or die "`mv $tmp $arg' failed: $!";
 		}
 	}
 
@@ -218,9 +218,9 @@
 	if (open TTY, "/dev/tty") {
 
 		if ( $default_yes )
-		{ $default_string = "[y]" }
+		{ $default_string = "[y]"; }
 		else
-		{ $default_string = "[n]" }
+		{ $default_string = "[n]"; }
 
 		print $query_string . " " . $default_string . " ";
 		chomp($response = <TTY>);
@@ -265,9 +265,9 @@
 		#
 
 		if ( $default_yes )
-		{ $default_string = "-default yes" }
+		{ $default_string = "-default yes"; }
 		else
-		{ $default_string = "-default no" }
+		{ $default_string = "-default no"; }
 
 		$result = system("xmessage", "-buttons", "yes:0,no:1", $default_string, $query_string);
 		$errcode = $result & 0xff;
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------