p4raw-id: //depot/perl@25796
use strict;
use vars qw($VERSION %MMAP $AUTOLOAD);
-$VERSION = "1.12";
+$VERSION = "1.13";
%MMAP = (
"SHA-1" => ["Digest::SHA1", ["Digest::SHA", 1], ["Digest::SHA2", 1]],
+2005-10-18 Gisle Aas <gisle@ActiveState.com>
+
+ Release 1.13
+
+ Fixed documentation typo.
+
+
+
2005-09-29 Gisle Aas <gisle@ActiveState.com>
Release 1.12
use vars qw($VERSION @ISA @EXPORT_OK);
-$VERSION = "0.01";
+$VERSION = "1.00";
@ISA = qw(Exporter);
@EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);
# Poor mans "md5sum" command
use Digest::file qw(digest_file_hex);
for (@ARGV) {
- print digest_file_hex($_, "MD5"), " $_\n";e
+ print digest_file_hex($_, "MD5"), " $_\n";
}
=head1 DESCRIPTION