src/patches/perl-5.8.5-tempfiles.patch

   1 diff -ur perl-5.8.5.orig/lib/ExtUtils/instmodsh perl-5.8.5/lib/ExtUtils/instmodsh
   2 --- perl-5.8.5.orig/lib/ExtUtils/instmodsh      Tue Sep 30 17:10:47 2003
   3 +++ perl-5.8.5/lib/ExtUtils/instmodsh   Mon Jan 19 20:14:11 2004
   4 @@ -2,6 +2,7 @@
   5
   6  use strict;
   7  use IO::File;
   8 +use File::Temp;
   9  use ExtUtils::Packlist;
  10  use ExtUtils::Installed;
  11
  12 @@ -58,16 +59,12 @@
  13        $reply =~ /^t\s*/ and do
  14           {
  15           my $file = (split(' ', $reply))[1];
  16 -         my $tmp = "/tmp/inst.$$";
  17 -         if (my $fh = IO::File->new($tmp, "w"))
  18 -            {
  19 -            $fh->print(join("\n", $Inst->files($module)));
  20 -            $fh->close();
  21 -            system("tar cvf $file -I $tmp");
  22 -            unlink($tmp);
  23 -            last CASE;
  24 -            }
  25 -         else { print("Can't open $file: $!\n"); }
  26 +         my ($fh, $tmp) = File::Temp::tempfile(UNLINK => 1);
  27 +         $fh->print(join("\n", $Inst->files($module)));
  28 +         $fh->close();
  29 +         # This used to use -I which is wrong for GNU tar.
  30 +         system("tar cvf $file -T $tmp");
  31 +         unlink($tmp);
  32           last CASE;
  33           };
  34        $reply eq 'v' and do
  35
  36 diff -ur perl-5.8.5.orig/lib/perl5db.pl perl-5.8.5/lib/perl5db.pl
  37 --- perl-5.8.5.orig/lib/perl5db.pl      Mon Jan 19 18:46:25 2004
  38 +++ perl-5.8.5/lib/perl5db.pl   Mon Jan 19 20:14:11 2004
  39 @@ -206,7 +206,7 @@
  40  =item * noTTY
  41
  42  if set, goes in NonStop mode.  On interrupt, if TTY is not set,
  43 -uses the value of noTTY or "/tmp/perldbtty$$" to find TTY using
  44 +uses the value of noTTY or "/var/run/perldbtty$$" to find TTY using
  45  Term::Rendezvous.  Current variant is to have the name of TTY in this
  46  file.
  47
  48 @@ -5689,8 +5689,8 @@
  49          else {
  50              eval "require Term::Rendezvous;" or die;
  51              # See if we have anything to pass to Term::Rendezvous.
  52 -            # Use /tmp/perldbtty$$ if not.
  53 -            my $rv = $ENV{PERLDB_NOTTY} || "/tmp/perldbtty$$";
  54 +            # Use /var/run/perldbtty$$ if not.
  55 +            my $rv = $ENV{PERLDB_NOTTY} || "/var/run/perldbtty$$";
  56
  57              # Rendezvous and get the filehandles.
  58              my $term_rv = new Term::Rendezvous $rv;
  59
  60