Commit 9adba28a authored by mwagner@here.mwagner.org's avatar mwagner@here.mwagner.org

Merge here.mwagner.org:/Volumes/BK/mysql-4.0

into here.mwagner.org:/Volumes/BK/mysql-4.0-work
parents 199d4f15 c5e6ebc6
...@@ -24,7 +24,8 @@ BEGIN ...@@ -24,7 +24,8 @@ BEGIN
use Digest::MD5; use Digest::MD5;
use Getopt::Long; use Getopt::Long;
my $VER= "1.2"; my $VER= "1.3";
my $EXIT= 0;
# #
# 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'
...@@ -78,6 +79,9 @@ if ($opt_check) ...@@ -78,6 +79,9 @@ if ($opt_check)
# Print an error message if they don't match, else print OK # Print an error message if they don't match, else print OK
print "$checkfile: FAILED\n" if $digest ne $checksum; print "$checkfile: FAILED\n" if $digest ne $checksum;
print "$checkfile: OK\n" if $digest eq $checksum; print "$checkfile: OK\n" if $digest eq $checksum;
# Set the exit() status to non-zero if FAILED
$EXIT= 1 if $digest ne $checksum;
} }
} }
# Else generate the MD5 digest to STDOUT # Else generate the MD5 digest to STDOUT
...@@ -91,6 +95,8 @@ else ...@@ -91,6 +95,8 @@ else
} }
} }
exit($EXIT);
# #
# This routine generates the MD5 digest of a file # This routine generates the MD5 digest of a file
......
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