diff options
Diffstat (limited to 'dev-lang/perl')
| -rw-r--r-- | dev-lang/perl/Manifest | 32 | ||||
| -rw-r--r-- | dev-lang/perl/files/CAN-2005-0156-suid.patch | 20 | ||||
| -rw-r--r-- | dev-lang/perl/files/CAN-2005-0448-rmtree.patch | 279 | ||||
| -rw-r--r-- | dev-lang/perl/files/file_path_rmtree.patch | 29 | ||||
| -rw-r--r-- | dev-lang/perl/files/perl-5.8.4-NDBM-GDBM-compat.patch | 10 | ||||
| -rw-r--r-- | dev-lang/perl/files/perl-5.8.5-tempfiles.patch | 60 | ||||
| -rw-r--r-- | dev-lang/perl/files/perl-5.8.6-tempfiles.patch | 60 | ||||
| -rw-r--r-- | dev-lang/perl/files/perl-tempfiles.patch | 60 | ||||
| -rw-r--r-- | dev-lang/perl/files/perl-uclibc.patch | 15 |
9 files changed, 0 insertions, 565 deletions
diff --git a/dev-lang/perl/Manifest b/dev-lang/perl/Manifest index 48b7304eaa39..fdaf061cae82 100644 --- a/dev-lang/perl/Manifest +++ b/dev-lang/perl/Manifest @@ -1,27 +1,3 @@ -AUX CAN-2005-0156-suid.patch 703 RMD160 d1f50057744ef79428667ebbf1e37c09e1791e45 SHA1 9ee062e1c3db4ea4867bdfd7d0dfe31c0bed97a4 SHA256 123cc60410b2f09e4d10b892c151b3394a32c1b26dd216102c21fece64d45142 -MD5 bd75f0242e3b7791803d089c38a3f920 files/CAN-2005-0156-suid.patch 703 -RMD160 d1f50057744ef79428667ebbf1e37c09e1791e45 files/CAN-2005-0156-suid.patch 703 -SHA256 123cc60410b2f09e4d10b892c151b3394a32c1b26dd216102c21fece64d45142 files/CAN-2005-0156-suid.patch 703 -AUX CAN-2005-0448-rmtree.patch 7629 RMD160 4cbf75b0f17902a5033ad34ed8811448701795a6 SHA1 15b768bcc999b02bb1c0f4bd6af7e1f40d7967f2 SHA256 b0ff3945278454a77b9f2deeff8c6998b3e3e4bd863e70e12cf5711f83359634 -MD5 2bd41aec5e22962224dc9376e27bdde3 files/CAN-2005-0448-rmtree.patch 7629 -RMD160 4cbf75b0f17902a5033ad34ed8811448701795a6 files/CAN-2005-0448-rmtree.patch 7629 -SHA256 b0ff3945278454a77b9f2deeff8c6998b3e3e4bd863e70e12cf5711f83359634 files/CAN-2005-0448-rmtree.patch 7629 -AUX file_path_rmtree.patch 1068 RMD160 cb57d280e9a4b0e46786bb2e83e44fd3c5fb3615 SHA1 cd8841461b827b456048926a5377a3a7510cb71b SHA256 3b1ee1e7f056635e6fbd17a3928a62329808c2b8a9a1d07c0abc283eeee65e74 -MD5 154013a841cbb251d7b63fb006b4006f files/file_path_rmtree.patch 1068 -RMD160 cb57d280e9a4b0e46786bb2e83e44fd3c5fb3615 files/file_path_rmtree.patch 1068 -SHA256 3b1ee1e7f056635e6fbd17a3928a62329808c2b8a9a1d07c0abc283eeee65e74 files/file_path_rmtree.patch 1068 -AUX perl-5.8.4-NDBM-GDBM-compat.patch 428 RMD160 547a44433d92d800a26375a36eec47ebc1032545 SHA1 f654f513d8de069e40b53646ebd441127c701bec SHA256 aa414c4ad4ebe271787ca79a414eb4e1926407c1085152ae5b172049482e012c -MD5 44e1f1420947cc552c66fb434ba4c855 files/perl-5.8.4-NDBM-GDBM-compat.patch 428 -RMD160 547a44433d92d800a26375a36eec47ebc1032545 files/perl-5.8.4-NDBM-GDBM-compat.patch 428 -SHA256 aa414c4ad4ebe271787ca79a414eb4e1926407c1085152ae5b172049482e012c files/perl-5.8.4-NDBM-GDBM-compat.patch 428 -AUX perl-5.8.5-tempfiles.patch 2113 RMD160 5ad911e276c19f2e6da38f1fe421a5d913c191a9 SHA1 fe3ae7aef41e3c95a517dae28130b29a73e046fe SHA256 904f8f9e13dbca3e4a09e9695fcae78632d439634bb00e85ef63c7d4d2881c33 -MD5 5dfd23c2236b382d031a9513bc12f3f1 files/perl-5.8.5-tempfiles.patch 2113 -RMD160 5ad911e276c19f2e6da38f1fe421a5d913c191a9 files/perl-5.8.5-tempfiles.patch 2113 -SHA256 904f8f9e13dbca3e4a09e9695fcae78632d439634bb00e85ef63c7d4d2881c33 files/perl-5.8.5-tempfiles.patch 2113 -AUX perl-5.8.6-tempfiles.patch 2115 RMD160 12e384c9a9b5a3a1d88319330869f68b053f9107 SHA1 05fe09c8367bd70eb02a1f675f9d69b50ec7ccc6 SHA256 ac1a7eebf45f1206ea06e594810ab441d1050d6d4dd370bda28bb357d3efbd7d -MD5 c5cc36940b2488a37c3dc2287f6e672c files/perl-5.8.6-tempfiles.patch 2115 -RMD160 12e384c9a9b5a3a1d88319330869f68b053f9107 files/perl-5.8.6-tempfiles.patch 2115 -SHA256 ac1a7eebf45f1206ea06e594810ab441d1050d6d4dd370bda28bb357d3efbd7d files/perl-5.8.6-tempfiles.patch 2115 AUX perl-5.8.7-CAN-2005-0448-rmtree.patch 6961 RMD160 bf242f32c1e1450a7d4d252cdc54cace36b50c62 SHA1 97d1f3a3b2d75b7a82983b1f98d4445ff82d2c19 SHA256 d6565afabbc35e0e1aeecfb469eaf037f892834312a7c2616357a309cd56e3f1 MD5 fd8a46de4b22dbf9146a6d0459e812c4 files/perl-5.8.7-CAN-2005-0448-rmtree.patch 6961 RMD160 bf242f32c1e1450a7d4d252cdc54cace36b50c62 files/perl-5.8.7-CAN-2005-0448-rmtree.patch 6961 @@ -110,14 +86,6 @@ AUX perl-reorder-INC.patch 1141 RMD160 4a889fa029fb77e7454ed0c6f7870359340df672 MD5 f7324a62f22aabde3387b7e8a8b2106e files/perl-reorder-INC.patch 1141 RMD160 4a889fa029fb77e7454ed0c6f7870359340df672 files/perl-reorder-INC.patch 1141 SHA256 4e075cb6b6b418ab3b2a6f6b9af633ac51cc7d7749330d3981fa69d0f2d16564 files/perl-reorder-INC.patch 1141 -AUX perl-tempfiles.patch 2023 RMD160 3b3a2240c5360dc2559028b07795895ef9ef885f SHA1 aebb24da23673558b16e2867ed30fe99b4870602 SHA256 25cbb3c9e64c0c0a674aeb27835aa14b8683b5103ae69c0d0ebb3042ed4bd3f9 -MD5 f98759a75347e0b54190850b8295c2cb files/perl-tempfiles.patch 2023 -RMD160 3b3a2240c5360dc2559028b07795895ef9ef885f files/perl-tempfiles.patch 2023 -SHA256 25cbb3c9e64c0c0a674aeb27835aa14b8683b5103ae69c0d0ebb3042ed4bd3f9 files/perl-tempfiles.patch 2023 -AUX perl-uclibc.patch 573 RMD160 d8a1b40e86094a63f60783f550afd1087bb5a5f0 SHA1 9d06095df69ce828c66043972f2344f0810f610d SHA256 a054e63156fb2f1c167c2806f4d8c1a97a85dc0eecf2bd737bb63c92f079e98d -MD5 ce442db939c59218a16be167f793b817 files/perl-uclibc.patch 573 -RMD160 d8a1b40e86094a63f60783f550afd1087bb5a5f0 files/perl-uclibc.patch 573 -SHA256 a054e63156fb2f1c167c2806f4d8c1a97a85dc0eecf2bd737bb63c92f079e98d files/perl-uclibc.patch 573 DIST perl-5.8.7.tar.bz2 9839086 RMD160 110c286d73fd89e25da8ea394e763f209a76d283 SHA1 c9477c6fe76b200033694bdc555a0276523d4228 SHA256 3c7e9ff6697c5266a8ce8ddc0a6a958c07c706612f0780aed897684f51e504ba DIST perl-5.8.8.tar.bz2 10123359 RMD160 e78f26d9b96e6db35f946ad4ff55e3a69385c71b SHA1 4aab490040727ca4419098720eca2ba4367df539 SHA256 818a140d9c04ea8dab3a05104b34ced7f7d9d0a91bfed91baf89a84d0dfb1bc9 EBUILD perl-5.8.7-r2.ebuild 19488 RMD160 0e6e633b0ac8227b034a4e5704f226a3e2d1d13e SHA1 627d4246a72747f1f229efd7fcb2b0c0f10f5663 SHA256 1d5d026d0bfc892176c744b3c6c98d58af841ad6eee97987b8580b082eb60ca1 diff --git a/dev-lang/perl/files/CAN-2005-0156-suid.patch b/dev-lang/perl/files/CAN-2005-0156-suid.patch deleted file mode 100644 index 8305cdb4415e..000000000000 --- a/dev-lang/perl/files/CAN-2005-0156-suid.patch +++ /dev/null @@ -1,20 +0,0 @@ ---- perlio.c.orig 2005-02-04 17:29:22.196825296 -0500 -+++ perlio.c 2005-02-04 17:31:42.538687640 -0500 -@@ -448,7 +448,7 @@ - va_list ap; - dSYS; - va_start(ap, fmt); -- if (!dbg) { -+ if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) { - char *s = PerlEnv_getenv("PERLIO_DEBUG"); - if (s && *s) - dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666); -@@ -465,7 +465,7 @@ - s = CopFILE(PL_curcop); - if (!s) - s = "(none)"; -- sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop)); -+ sprintf(buffer, "%.40s:%" IVdf " ", s, (IV) CopLINE(PL_curcop)); - len = strlen(buffer); - vsprintf(buffer+len, fmt, ap); - PerlLIO_write(dbg, buffer, strlen(buffer)); diff --git a/dev-lang/perl/files/CAN-2005-0448-rmtree.patch b/dev-lang/perl/files/CAN-2005-0448-rmtree.patch deleted file mode 100644 index 602a4ad57bcd..000000000000 --- a/dev-lang/perl/files/CAN-2005-0448-rmtree.patch +++ /dev/null @@ -1,279 +0,0 @@ ---- Path.pm.old -+++ Path.pm -@@ -72,27 +72,17 @@ - - =item * - --a boolean value, which if TRUE will cause C<rmtree> to --skip any files to which you do not have delete access --(if running under VMS) or write access (if running --under another OS). This will change in the future when --a criterion for 'delete permission' under OSs other --than VMS is settled. (defaults to FALSE) -+a boolean value, which if FALSE (the default for non-root users) will -+cause C<rmtree> to adjust the mode of directories (if required) prior -+to attempting to remove the contents. Note that on interruption or -+failure of C<rmtree>, directories may be left with more permissive -+modes for the owner. - - =back - - It returns the number of files successfully deleted. Symlinks are - simply deleted and not followed. - --B<NOTE:> If the third parameter is not TRUE, C<rmtree> is B<unsecure> --in the face of failure or interruption. Files and directories which --were not deleted may be left with permissions reset to allow world --read and write access. Note also that the occurrence of errors in --rmtree can be determined I<only> by trapping diagnostic messages --using C<$SIG{__WARN__}>; it is not apparent from the return value. --Therefore, you must be extremely careful about using C<rmtree($foo,$bar,0)> --in situations where security is an issue. -- - =head1 DIAGNOSTICS - - =over 4 -@@ -118,6 +108,7 @@ - use Exporter (); - use strict; - use warnings; -+use Cwd 'getcwd'; - - our $VERSION = "1.06"; - our @ISA = qw( Exporter ); -@@ -166,111 +157,133 @@ - @created; - } - --sub rmtree { -- my($roots, $verbose, $safe) = @_; -- my(@files); -- my($count) = 0; -- $verbose ||= 0; -- $safe ||= 0; -- -- if ( defined($roots) && length($roots) ) { -- $roots = [$roots] unless ref $roots; -- } -- else { -- carp "No root path(s) specified\n"; -- return 0; -- } -- -- my($root); -- foreach $root (@{$roots}) { -- if ($Is_MacOS) { -- $root = ":$root" if $root !~ /:/; -- $root =~ s#([^:])\z#$1:#; -- } else { -- $root =~ s#/\z##; -+sub _rmtree; -+sub _rmtree -+{ -+ my ($path, $prefix, $up, $up_dev, $up_ino, $verbose, $safe) = @_; -+ -+ my ($dev, $ino) = lstat $path or do { -+ carp "Can't stat $prefix$path ($!)" unless $!{ENOENT}; -+ return 0; -+ }; -+ -+ unless (-d _) -+ { -+ print "unlink $prefix$path\n" if $verbose; -+ unless (unlink $path) -+ { -+ carp "Can't remove file $prefix$path ($!)"; -+ return 0; - } -- (undef, undef, my $rp) = lstat $root or next; -- $rp &= 07777; # don't forget setuid, setgid, sticky bits -- if ( -d _ ) { -- # notabene: 0777 is for making readable in the first place, -- # it's also intended to change it to writable in case we have -- # to recurse in which case we are better than rm -rf for -- # subtrees with strange permissions -- chmod(0777, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) -- or carp "Can't make directory $root read+writeable: $!" -- unless $safe; -- -- if (opendir my $d, $root) { -- no strict 'refs'; -- if (!defined ${"\cTAINT"} or ${"\cTAINT"}) { -- # Blindly untaint dir names -- @files = map { /^(.*)$/s ; $1 } readdir $d; -- } else { -- @files = readdir $d; -- } -- closedir $d; -- } -- else { -- carp "Can't read $root: $!"; -- @files = (); -- } - -- # Deleting large numbers of files from VMS Files-11 filesystems -- # is faster if done in reverse ASCIIbetical order -- @files = reverse @files if $Is_VMS; -- ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z## if $Is_VMS; -- if ($Is_MacOS) { -- @files = map("$root$_", @files); -- } else { -- @files = map("$root/$_", grep $_!~/^\.{1,2}\z/s,@files); -- } -- $count += rmtree(\@files,$verbose,$safe); -- if ($safe && -- ($Is_VMS ? !&VMS::Filespec::candelete($root) : !-w $root)) { -- print "skipped $root\n" if $verbose; -- next; -- } -- chmod 0777, $root -- or carp "Can't make directory $root writeable: $!" -- if $force_writeable; -- print "rmdir $root\n" if $verbose; -- if (rmdir $root) { -- ++$count; -- } -- else { -- carp "Can't remove directory $root: $!"; -- chmod($rp, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) -- or carp("and can't restore permissions to " -- . sprintf("0%o",$rp) . "\n"); -- } -- } -- else { -- if ($safe && -- ($Is_VMS ? !&VMS::Filespec::candelete($root) -- : !(-l $root || -w $root))) -- { -- print "skipped $root\n" if $verbose; -- next; -- } -- chmod 0666, $root -- or carp "Can't make file $root writeable: $!" -- if $force_writeable; -- print "unlink $root\n" if $verbose; -- # delete all versions under VMS -- for (;;) { -- unless (unlink $root) { -- carp "Can't unlink file $root: $!"; -- if ($force_writeable) { -- chmod $rp, $root -- or carp("and can't restore permissions to " -- . sprintf("0%o",$rp) . "\n"); -- } -- last; -- } -- ++$count; -- last unless $Is_VMS && lstat $root; -- } -+ return 1; -+ } -+ -+ unless (chdir $path) -+ { -+ carp "Can't chdir to $prefix$path ($!)"; -+ return 0; -+ } -+ -+ # avoid a race condition where a directory may be replaced by a -+ # symlink between the lstat and the chdir -+ my ($new_dev, $new_ino, $perm) = stat '.'; -+ unless ("$new_dev:$new_ino" eq "$dev:$ino") -+ { -+ croak "Directory $prefix$path changed before chdir, aborting"; -+ } -+ -+ $perm &= 07777; -+ my $nperm = $perm | 0700; -+ unless ($safe or $nperm == $perm or chmod $nperm, '.') -+ { -+ carp "Can't make directory $prefix$path read+writeable ($!)"; -+ $nperm = $perm; -+ } -+ -+ my $count = 0; -+ if (opendir my $dir, '.') -+ { -+ my $entry; -+ while (defined ($entry = readdir $dir)) -+ { -+ next if $entry =~ /^\.\.?$/; -+ $entry =~ /^(.*)$/s; $entry = $1; # untaint -+ $count += _rmtree $entry, "$prefix$path/", '..', $dev, $ino, -+ $verbose, $safe; - } -+ -+ closedir $dir; -+ } -+ -+ # restore directory permissions if required (in case the rmdir -+ # below fails) now, while we're still in the directory and may do -+ # so without a race via '.' -+ unless ($nperm == $perm or chmod $perm, '.') -+ { -+ carp "Can't restore permissions on directory $prefix$path ($!)"; -+ } -+ -+ # don't leave the caller in an unexpected directory -+ unless (chdir $up) -+ { -+ croak "Can't return to $up from $prefix$path ($!)"; -+ } -+ -+ # ensure that a chdir .. didn't take us somewhere other than -+ # where we expected (see CVE-2002-0435) -+ unless (($new_dev, $new_ino) = stat '.' -+ and "$new_dev:$new_ino" eq "$up_dev:$up_ino") -+ { -+ croak "Previous directory $up changed since entering $prefix$path"; -+ } -+ -+ print "rmdir $prefix$path\n" if $verbose; -+ if (rmdir $path) -+ { -+ $count++; -+ } -+ else -+ { -+ carp "Can't remove directory $prefix$path ($!)"; -+ } -+ -+ return $count; -+} -+ -+sub rmtree -+{ -+ my ($p, $verbose, $safe) = @_; -+ $p = [] unless defined $p and length $p; -+ $p = [ $p ] unless ref $p; -+ my @paths = grep defined && length, @$p; -+ -+ # default to "unsafe" for non-root (will chmod dirs) -+ $safe = $> ? 0 : 1 unless defined $safe; -+ -+ unless (@paths) -+ { -+ carp "No root path(s) specified"; -+ return; -+ } -+ -+ my $oldpwd = getcwd or do { -+ carp "Can't fetch initial working directory"; -+ return; -+ }; -+ -+ my ($dev, $ino) = stat '.' or do { -+ carp "Can't stat initial working directory"; -+ return; -+ }; -+ -+ # untaint -+ for ($oldpwd) { /^(.*)$/s; $_ = $1 } -+ -+ my $count = 0; -+ for my $path (@paths) -+ { -+ $count += _rmtree $path, '', $oldpwd, $dev, $ino, $verbose, $safe; - } - - $count; diff --git a/dev-lang/perl/files/file_path_rmtree.patch b/dev-lang/perl/files/file_path_rmtree.patch deleted file mode 100644 index 2518ddefe686..000000000000 --- a/dev-lang/perl/files/file_path_rmtree.patch +++ /dev/null @@ -1,29 +0,0 @@ ---- lib/File/Path.pm 2003-08-14 02:00:52.000000000 -0400 -+++ lib/File/Path.pm.chmod 2005-01-26 06:20:44.228146880 -0500 -@@ -196,7 +196,7 @@ sub rmtree { - # it's also intended to change it to writable in case we have - # to recurse in which case we are better than rm -rf for - # subtrees with strange permissions -- chmod(0777, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) -+ chmod(0700, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) - or carp "Can't make directory $root read+writeable: $!" - unless $safe; - -@@ -230,7 +230,7 @@ sub rmtree { - print "skipped $root\n" if $verbose; - next; - } -- chmod 0777, $root -+ chmod 0700, $root - or carp "Can't make directory $root writeable: $!" - if $force_writeable; - print "rmdir $root\n" if $verbose; -@@ -252,7 +252,7 @@ sub rmtree { - print "skipped $root\n" if $verbose; - next; - } -- chmod 0666, $root -+ chmod 0600, $root - or carp "Can't make file $root writeable: $!" - if $force_writeable; - print "unlink $root\n" if $verbose; diff --git a/dev-lang/perl/files/perl-5.8.4-NDBM-GDBM-compat.patch b/dev-lang/perl/files/perl-5.8.4-NDBM-GDBM-compat.patch deleted file mode 100644 index 7973e097e962..000000000000 --- a/dev-lang/perl/files/perl-5.8.4-NDBM-GDBM-compat.patch +++ /dev/null @@ -1,10 +0,0 @@ ---- ext/NDBM_File/hints/linux.pl 2001-07-02 20:22:18 +0000 -+++ ext/NDBM_File/hints/linux.pl 2004-05-21 22:05:18 +0000 -@@ -3,4 +3,6 @@ - # (no null key support) - # Jonathan Stowe <gellyfish@gellyfish.com> - use Config; --$self->{LIBS} = ['-lgdbm'] if $Config{libs} =~ /(?:^|\s)-lgdbm(?:\s|$)/; -+use ExtUtils::Liblist; -+($self->{LIBS}) = ExtUtils::Liblist->ext('-lgdbm -lgdbm_compat') -+ if $Config{libs} =~ /(?:^|\s)-lgdbm(?:\s|$)/; diff --git a/dev-lang/perl/files/perl-5.8.5-tempfiles.patch b/dev-lang/perl/files/perl-5.8.5-tempfiles.patch deleted file mode 100644 index be0d64effe09..000000000000 --- a/dev-lang/perl/files/perl-5.8.5-tempfiles.patch +++ /dev/null @@ -1,60 +0,0 @@ -diff -ur perl-5.8.5.orig/lib/ExtUtils/instmodsh perl-5.8.5/lib/ExtUtils/instmodsh ---- perl-5.8.5.orig/lib/ExtUtils/instmodsh Tue Sep 30 17:10:47 2003 -+++ perl-5.8.5/lib/ExtUtils/instmodsh Mon Jan 19 20:14:11 2004 -@@ -2,6 +2,7 @@ - - use strict; - use IO::File; -+use File::Temp; - use ExtUtils::Packlist; - use ExtUtils::Installed; - -@@ -58,16 +59,12 @@ - $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 - -diff -ur perl-5.8.5.orig/lib/perl5db.pl perl-5.8.5/lib/perl5db.pl ---- perl-5.8.5.orig/lib/perl5db.pl Mon Jan 19 18:46:25 2004 -+++ perl-5.8.5/lib/perl5db.pl Mon Jan 19 20:14:11 2004 -@@ -206,7 +206,7 @@ - =item * noTTY - - if set, goes in NonStop mode. On interrupt, if TTY is not set, --uses the value of noTTY or "/tmp/perldbtty$$" to find TTY using -+uses the value of noTTY or "/var/run/perldbtty$$" to find TTY using - Term::Rendezvous. Current variant is to have the name of TTY in this - file. - -@@ -5689,8 +5689,8 @@ - else { - eval "require Term::Rendezvous;" or die; - # See if we have anything to pass to Term::Rendezvous. -- # Use /tmp/perldbtty$$ if not. -- my $rv = $ENV{PERLDB_NOTTY} || "/tmp/perldbtty$$"; -+ # Use /var/run/perldbtty$$ if not. -+ my $rv = $ENV{PERLDB_NOTTY} || "/var/run/perldbtty$$"; - - # Rendezvous and get the filehandles. - my $term_rv = new Term::Rendezvous $rv; - - diff --git a/dev-lang/perl/files/perl-5.8.6-tempfiles.patch b/dev-lang/perl/files/perl-5.8.6-tempfiles.patch deleted file mode 100644 index a9dab03e2979..000000000000 --- a/dev-lang/perl/files/perl-5.8.6-tempfiles.patch +++ /dev/null @@ -1,60 +0,0 @@ -diff -ur perl-5.8.6.orig/lib/ExtUtils/instmodsh perl-5.8.6/lib/ExtUtils/instmodsh ---- perl-5.8.6.orig/lib/ExtUtils/instmodsh Tue Sep 30 17:10:47 2003 -+++ perl-5.8.6/lib/ExtUtils/instmodsh Mon Jan 19 20:14:11 2004 -@@ -2,6 +2,7 @@ - - use strict; - use IO::File; -+use File::Temp; - use ExtUtils::Packlist; - use ExtUtils::Installed; - -@@ -58,16 +59,12 @@ - $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 - -diff -ur perl-5.8.6.orig/lib/perl5db.pl perl-5.8.6/lib/perl5db.pl ---- perl-5.8.6.orig/lib/perl5db.pl Mon Jan 19 18:46:25 2004 -+++ perl-5.8.6/lib/perl5db.pl Mon Jan 19 20:14:11 2004 -@@ -206,7 +206,7 @@ - =item * noTTY - - if set, goes in NonStop mode. On interrupt, if TTY is not set, --uses the value of noTTY or F</tmp/perldbtty$$> to find TTY using -+uses the value of noTTY or F</var/run/perldbtty$$> to find TTY using - Term::Rendezvous. Current variant is to have the name of TTY in this - file. - -@@ -5689,8 +5689,8 @@ - else { - eval "require Term::Rendezvous;" or die; - # See if we have anything to pass to Term::Rendezvous. -- # Use /tmp/perldbtty$$ if not. -- my $rv = $ENV{PERLDB_NOTTY} || "/tmp/perldbtty$$"; -+ # Use /var/run/perldbtty$$ if not. -+ my $rv = $ENV{PERLDB_NOTTY} || "/var/run/perldbtty$$"; - - # Rendezvous and get the filehandles. - my $term_rv = new Term::Rendezvous $rv; - - diff --git a/dev-lang/perl/files/perl-tempfiles.patch b/dev-lang/perl/files/perl-tempfiles.patch deleted file mode 100644 index b229d6c0ca25..000000000000 --- a/dev-lang/perl/files/perl-tempfiles.patch +++ /dev/null @@ -1,60 +0,0 @@ -diff -ur lib/ExtUtils/instmodsh.old lib/ExtUtils/instmodsh ---- lib/ExtUtils/instmodsh.old Tue Sep 30 17:10:47 2003 -+++ lib/ExtUtils/instmodsh Mon Jan 19 20:14:11 2004 -@@ -2,6 +2,7 @@ - - use strict; - use IO::File; -+use File::Temp; - use ExtUtils::Packlist; - use ExtUtils::Installed; - -@@ -58,16 +59,12 @@ - $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 - -diff -ur lib/perl5db.pl.old lib/perl5db.pl ---- lib/perl5db.pl.old Mon Jan 19 18:46:25 2004 -+++ lib/perl5db.pl Mon Jan 19 20:14:11 2004 -@@ -206,7 +206,7 @@ - =item * noTTY - - if set, goes in NonStop mode. On interrupt, if TTY is not set, --uses the value of noTTY or F</tmp/perldbtty$$> to find TTY using -+uses the value of noTTY or F</var/run/perldbtty$$> to find TTY using - Term::Rendezvous. Current variant is to have the name of TTY in this - file. - -@@ -5689,8 +5689,8 @@ - else { - eval "require Term::Rendezvous;" or die; - # See if we have anything to pass to Term::Rendezvous. -- # Use /tmp/perldbtty$$ if not. -- my $rv = $ENV{PERLDB_NOTTY} || "/tmp/perldbtty$$"; -+ # Use /var/run/perldbtty$$ if not. -+ my $rv = $ENV{PERLDB_NOTTY} || "/var/run/perldbtty$$"; - - # Rendezvous and get the filehandles. - my $term_rv = new Term::Rendezvous $rv; - - diff --git a/dev-lang/perl/files/perl-uclibc.patch b/dev-lang/perl/files/perl-uclibc.patch deleted file mode 100644 index 1e086d73879a..000000000000 --- a/dev-lang/perl/files/perl-uclibc.patch +++ /dev/null @@ -1,15 +0,0 @@ ---- perl-5.8.2/perlio.c-dist 2003-12-03 14:30:24.000000000 -0700 -+++ perl-5.8.2/perlio.c 2003-12-03 14:32:10.000000000 -0700 -@@ -2824,7 +2824,11 @@ - /* XXX this could use PerlIO_canset_fileno() and - * PerlIO_set_fileno() support from Configure - */ --# if defined(__GLIBC__) -+# if defined(__UCLIBC__) -+ /* uClibc must come before glibc because it defines __GLIBC__ as well. */ -+ f->__filedes = -1; -+ return 1; -+# elif defined(__GLIBC__) - /* There may be a better way for GLIBC: - - libio.h defines a flag to not close() on cleanup - */ |