diff options
Diffstat (limited to 'cpan/Module-Build/lib/Module/Build/ConfigData.pm')
-rw-r--r-- | cpan/Module-Build/lib/Module/Build/ConfigData.pm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/cpan/Module-Build/lib/Module/Build/ConfigData.pm b/cpan/Module-Build/lib/Module/Build/ConfigData.pm index 85fa28d869..9e49ca64bc 100644 --- a/cpan/Module-Build/lib/Module/Build/ConfigData.pm +++ b/cpan/Module-Build/lib/Module/Build/ConfigData.pm @@ -21,7 +21,6 @@ sub config_names { keys %$config } sub write { my $me = __FILE__; - require IO::File; # Can't use Module::Build::Dumper here because M::B is only a # build-time prereq of this module @@ -29,7 +28,7 @@ sub write { my $mode_orig = (stat $me)[2] & 07777; chmod($mode_orig | 0222, $me); # Make it writeable - my $fh = IO::File->new($me, 'r+') or die "Can't rewrite $me: $!"; + open(my $fh, '+<', $me) or die "Can't rewrite $me: $!"; seek($fh, 0, 0); while (<$fh>) { last if /^__DATA__$/; @@ -38,11 +37,11 @@ sub write { seek($fh, tell($fh), 0); my $data = [$config, $features, $auto_features]; - $fh->print( 'do{ my ' + print($fh 'do{ my ' . Data::Dumper->new([$data],['x'])->Purity(1)->Dump() . '$x; }' ); truncate($fh, tell($fh)); - $fh->close; + close $fh; chmod($mode_orig, $me) or warn "Couldn't restore permissions on $me: $!"; @@ -188,9 +187,6 @@ do{ my $x = [ 'description' => 'Create Unix man pages' }, 'PPM_support' => { - 'requires' => { - 'IO::File' => '1.13' - }, 'description' => 'Generate PPM files for distributions' }, 'dist_authoring' => { |