Commit 052fd99e authored by mwagner@here.mwagner.org's avatar mwagner@here.mwagner.org

Merge bk-internal.mysql.com:/home/bk/mysql-4.0

into here.mwagner.org:/Volumes/BK/mysql-4.0
parents 5bbb5bb5 b88e6476
...@@ -13,7 +13,7 @@ use strict; ...@@ -13,7 +13,7 @@ use strict;
use Digest::MD5; use Digest::MD5;
use Getopt::Long; 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' # Strip the leading path info off the program name ($0). We want 'my_md5sum'
...@@ -64,8 +64,9 @@ if ($opt_check) ...@@ -64,8 +64,9 @@ if ($opt_check)
my $digest= &mkmd5($checkfile); my $digest= &mkmd5($checkfile);
# Check the fresh MD5 against what is recorded in the file # Check the fresh MD5 against what is recorded in the file
# Print an error message if they don't match # Print an error message if they don't match, else print OK
print "$0: MD5 check failed for '$checkfile'\n" if $digest ne $checksum; print "$checkfile: FAILED\n" if $digest ne $checksum;
print "$checkfile: OK\n" if $digest eq $checksum;
} }
} }
# Else generate the MD5 digest to STDOUT # Else generate the MD5 digest to STDOUT
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment