diff options
| author | Solar Designer <solar@openwall.com> | 2004-01-26 04:22:18 +0300 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-01 17:40:02 +0000 |
| commit | 2359510ddb135dcc6e80153f51cff0a97b20b597 (patch) | |
| tree | b074c5df813a1e3e529f0330620b456ecc4988e6 /lib/perl5db.pl | |
| parent | a95a5f75a0e72874474834cd9e274afa0f23b6d8 (diff) | |
| download | perl-2359510ddb135dcc6e80153f51cff0a97b20b597.tar.gz | |
Re: [perl #15063] /tmp issues
Message-ID: <20040125222218.GA13499@openwall.com>
Remove insecure usage of /tmp from code and documentation
p4raw-id: //depot/perl@22258
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index c2610e35e9..911671c348 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -95,7 +95,7 @@ sub eval { # TTY - the TTY to use for debugging i/o. # # 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 ".perldbtty$$" to find TTY using # Term::Rendezvous. Current variant is to have the name of TTY in this # file. # @@ -2227,7 +2227,7 @@ sub setterm { select($sel); } else { eval "require Term::Rendezvous;" or die; - my $rv = $ENV{PERLDB_NOTTY} || "/tmp/perldbtty$$"; + my $rv = $ENV{PERLDB_NOTTY} || ".perldbtty$$"; my $term_rv = new Term::Rendezvous $rv; $IN = $term_rv->IN; $OUT = $term_rv->OUT; |