Permalink
Browse files

Use binmode when opening the tarball file just in case.

  • Loading branch information...
1 parent e47bc99 commit 54992579e055562b17a5f82c88ddb49214a7c656 @juster committed Jul 13, 2011
Showing with 1 addition and 0 deletions.
  1. +1 −0 lib/CPANPLUS/Dist/Arch.pm
@@ -1335,6 +1335,7 @@ sub _calc_tarballmd5
# my $tarball_fqp = $self->status->pkgbase . '/' . $module->package;
open my $distfile, '<', $tarball_fqp
or die "failed to get md5 of $tarball_fqp: $OS_ERROR";
+ binmode $distfile;
my $md5 = Digest::MD5->new;
$md5->addfile($distfile);

0 comments on commit 5499257

Please sign in to comment.