Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27557/lib/OpenInteract2
Modified Files:
Package.pm
Log Message:
use OI2::Util for MD5
Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Package.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** Package.pm 5 Dec 2004 18:50:10 -0000 1.40
--- Package.pm 5 Dec 2004 20:06:35 -0000 1.41
***************
*** 8,12 ****
use Cwd qw( cwd );
use Data::Dumper qw( Dumper );
- use Digest::MD5 qw();
use ExtUtils::Manifest ();
use File::Basename qw( basename dirname );
--- 8,11 ----
***************
*** 521,529 ****
oi_error "Cannot generate digest: file '$package_file' invalid";
}
! my $fh = IO::File->new( $package_file );
! $fh->binmode;
! my $digest = Digest::MD5->new->addfile( $fh )->hexdigest;
! $fh->close;
! return $digest;
}
--- 520,524 ----
oi_error "Cannot generate digest: file '$package_file' invalid";
}
! return OpenInteract2::Util->digest_file( $package_file );
}
|
