[Module-build-checkins] Module-Build/t metadata2.t,1.5,1.6
Status: Beta
Brought to you by:
kwilliams
From: Randy W. S. <si...@us...> - 2005-11-30 10:47:41
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17112/t Modified Files: metadata2.t Log Message: Some fixes against Perl version 5.005_03. Index: metadata2.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/metadata2.t,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- metadata2.t 20 Oct 2005 22:13:41 -0000 1.5 +++ metadata2.t 30 Nov 2005 10:47:33 -0000 1.6 @@ -68,7 +68,7 @@ sub _slurp { my $filename = shift; die "$filename doesn't exist. Aborting" if not -e $filename; - open my $fh, "<", $filename + open my $fh, "< $filename" or die "Couldn't open $filename: $!. Aborting."; local $/; return scalar <$fh>; |