Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27358/lib/OpenInteract2
Modified Files:
Util.pm
Log Message:
be sure we binmode the file before digesting
Index: Util.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Util.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Util.pm 5 Dec 2004 20:01:35 -0000 1.14
--- Util.pm 5 Dec 2004 20:05:21 -0000 1.15
***************
*** 104,107 ****
--- 104,108 ----
my $md5 = Digest::MD5->new();
open( IN, '<', $file ) || die "Cannot read '$file' for digest: $!";
+ binmode( IN );
$md5->addfile( *IN );
close( IN );
|
