From 05d7867d57c6be2bfdf69814c4f19fef44561ca6 Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 22 Jun 2004 12:57:52 -0500 Subject: my_md5sum: Change behaviour to be like the md5sum in GNU coreutils Build-tools/my_md5sum: Change behaviour to be like the md5sum in GNU coreutils --- Build-tools/my_md5sum | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Build-tools/my_md5sum b/Build-tools/my_md5sum index d58a8bb7200..20742ee2ed0 100755 --- a/Build-tools/my_md5sum +++ b/Build-tools/my_md5sum @@ -13,7 +13,7 @@ use strict; use Digest::MD5; use Getopt::Long; -my $VER= "1.0"; +my $VER= "1.1"; # # Strip the leading path info off the program name ($0). We want 'my_md5sum' @@ -64,8 +64,9 @@ if ($opt_check) my $digest= &mkmd5($checkfile); # Check the fresh MD5 against what is recorded in the file - # Print an error message if they don't match - print "$0: MD5 check failed for '$checkfile'\n" if $digest ne $checksum; + # Print an error message if they don't match, else print OK + print "$checkfile: FAILED\n" if $digest ne $checksum; + print "$checkfile: OK\n" if $digest eq $checksum; } } # Else generate the MD5 digest to STDOUT -- cgit v1.2.1