diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Module/Build/Compat.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Module/Build/Compat.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Module/Build/Compat.pm b/Master/tlpkg/tlperl/lib/Module/Build/Compat.pm index 79499a6efd9..11bbf11b4a9 100644 --- a/Master/tlpkg/tlperl/lib/Module/Build/Compat.pm +++ b/Master/tlpkg/tlperl/lib/Module/Build/Compat.pm @@ -2,11 +2,10 @@ package Module::Build::Compat; use strict; use vars qw($VERSION); -$VERSION = '0.4003'; +$VERSION = '0.4205'; use File::Basename (); use File::Spec; -use IO::File; use Config; use Module::Build; use Module::Build::ModuleInfo; @@ -123,7 +122,7 @@ HERE $args{file} ||= 'Makefile.PL'; local $build->{properties}{quiet} = 1; $build->delete_filetree($args{file}); - $fh = IO::File->new("> $args{file}") or die "Can't write $args{file}: $!"; + open($fh, '>', "$args{file}") or die "Can't write $args{file}: $!"; } print {$fh} "# Note: this file was auto-generated by ", __PACKAGE__, " version $VERSION\n"; @@ -406,7 +405,7 @@ EOF sub fake_prereqs { my $file = File::Spec->catfile('_build', 'prereqs'); - my $fh = IO::File->new("< $file") or die "Can't read $file: $!"; + open(my $fh, '<', "$file") or die "Can't read $file: $!"; my $prereqs = eval do {local $/; <$fh>}; close $fh; |