diff options
| author | Brendan O'Dea <bod@debian.org> | 2004-12-03 00:42:17 +1100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-12-15 16:39:29 +0000 |
| commit | b0e77abce94198d71ec18cc0f2bad3531c0062e1 (patch) | |
| tree | 5223adacad7c1e29f941893079aeba206dc842cf /lib | |
| parent | 6823cce904df185cb0073a3e9fa7caef0401a86e (diff) | |
| download | perl-b0e77abce94198d71ec18cc0f2bad3531c0062e1.tar.gz | |
Security fix from Debian in the debugger (in the setterm()
function), from:
Subject: Re: Security patch from Debian?
Message-ID: <20041202024217.GA12670@londo.c47.org>
p4raw-id: //depot/perl@23656
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 71395eb147..ace1cdf9fe 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -215,7 +215,7 @@ the TTY to use for debugging i/o. =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 @@ sub setterm { 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; |