[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Package.pm,1.40,1.41

[Chris W. <la...@us...>]

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 );
  }