diff options
| author |   Michael Cummings <mcummings@gentoo.org> | 2005-06-29 22:14:31 +0000 |
|---|---|---|
| committer | Michael Cummings <mcummings@gentoo.org> | 2005-06-29 22:14:31 +0000 |
| commit | b31dae3cb97d2ef1a82dd60d9c9cddae8dc2442b (patch) | |
| tree | 402c2fa0cd641242918c6cdb4fb71aea84235932 /dev-lang/perl/files/perl-5.8.7-tempfiles.patch | |
| parent | Perl 5.8.6 unmasking; perl 5.8.7 being added (diff) | |
| download | historical-b31dae3cb97d2ef1a82dd60d9c9cddae8dc2442b.tar.gz historical-b31dae3cb97d2ef1a82dd60d9c9cddae8dc2442b.tar.bz2 historical-b31dae3cb97d2ef1a82dd60d9c9cddae8dc2442b.zip | |
Perl 5.8.6 unmasking, perl 5.8.7 addition
Package-Manager: portage-2.0.51.22-r1
Diffstat (limited to 'dev-lang/perl/files/perl-5.8.7-tempfiles.patch')
| -rw-r--r-- | dev-lang/perl/files/perl-5.8.7-tempfiles.patch | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/dev-lang/perl/files/perl-5.8.7-tempfiles.patch b/dev-lang/perl/files/perl-5.8.7-tempfiles.patch new file mode 100644 index 000000000000..8d8e306a72b3 --- /dev/null +++ b/dev-lang/perl/files/perl-5.8.7-tempfiles.patch @@ -0,0 +1,33 @@ +--- lib/ExtUtils/instmodsh.old 2005-06-28 16:57:43.000000000 -0400 ++++ lib/ExtUtils/instmodsh 2005-06-28 16:59:28.000000000 -0400 +@@ -2,6 +2,7 @@ + + use strict; + use IO::File; ++use File::Temp; + use ExtUtils::Packlist; + use ExtUtils::Installed; + +@@ -58,16 +59,12 @@ while (1) + $reply =~ /^t\s*/ and do + { + my $file = (split(' ', $reply))[1]; +- my $tmp = "/tmp/inst.$$"; +- if (my $fh = IO::File->new($tmp, "w")) +- { +- $fh->print(join("\n", $Inst->files($module))); +- $fh->close(); +- system("tar cvf $file -I $tmp"); +- unlink($tmp); +- last CASE; +- } +- else { print("Can't open $file: $!\n"); } ++ my ($fh, $tmp) = File::Temp::tempfile(UNLINK => 1); ++ $fh->print(join("\n", $Inst->files($module))); ++ $fh->close(); ++ # This used to use -I which is wrong for GNU tar. ++ system("tar cvf $file -T $tmp"); ++ unlink($tmp); + last CASE; + }; + $reply eq 'v' and do |