Change 23656 by [EMAIL PROTECTED] on 2004/12/15 16:39:29
Security fix from Debian in the debugger (in the setterm()
function), from:
Subject: Re: Security patch from Debian?
From: Brendan O'Dea <[EMAIL PROTECTED]>
Date: Thu, 2 Dec 2004 13:42:17 +1100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/perl5db.pl#116 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#116 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#115~23506~ Wed Nov 17 00:57:17 2004
+++ perl/lib/perl5db.pl Wed Dec 15 08:39:29 2004
@@ -215,7 +215,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<$HOME/.perldbtty$$> to find TTY using
Term::Rendezvous. Current variant is to have the name of TTY in this
file.
@@ -6004,8 +6004,8 @@
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 $HOME/.perldbtty$$ if not.
+ my $rv = $ENV{PERLDB_NOTTY} || "$ENV{HOME}/.perldbtty$$";
# Rendezvous and get the filehandles.
my $term_rv = new Term::Rendezvous $rv;
End of Patch.
