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
9 use ExtUtils::Packlist;
10 use ExtUtils::Installed;
13 $reply =~ /^t\s*/ and do
15 my $file = (split(' ', $reply))[1];
16 - my $tmp = "/tmp/inst.$$";
17 - if (my $fh = IO::File->new($tmp, "w"))
19 - $fh->print(join("\n", $Inst->files($module)));
21 - system("tar cvf $file -I $tmp");
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)));
29 + # This used to use -I which is wrong for GNU tar.
30 + system("tar cvf $file -T $tmp");
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
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
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$$";
57 # Rendezvous and get the filehandles.
58 my $term_rv = new Term::Rendezvous $rv;