database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-09-02 09:41:40 +03:00
Code Activity

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

Browse Source 
into here.mwagner.org:/Volumes/BK/mysql-4.0-work
This commit is contained in:
unknown
2004-07-07 16:29:10 -05:00
parent 6f45a5f18a fc3c71e9b6
commit 9c8965933b
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Build-tools/my_md5sum
View File

@@ -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)
# 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
} }
} }
exit($EXIT);
# #
# This routine generates the MD5 digest of a file # This routine generates the MD5 digest of a file