From: Chris W. <la...@us...> - 2004-12-05 20:05:31
|
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 ); |