rpms/perl/FC-3 perl-5.8.5-CVE-2004-0976-2.patch,NONE,1.1

[fedora-cvs-commits at redhat.com]

Author: jvdias

Update of /cvs/dist/rpms/perl/FC-3
In directory cvs.devel.redhat.com:/tmp/cvs-serv2772

Added Files:
	perl-5.8.5-CVE-2004-0976-2.patch 
Log Message:
Fix CVE-2004-0976 / bz136325: fix issues with solardesigner's patch to perldbtty.pl and c2ph.PL

perl-5.8.5-CVE-2004-0976-2.patch:
 perl5db.pl |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

--- NEW FILE perl-5.8.5-CVE-2004-0976-2.patch ---
--- perl-5.8.5/lib/perl5db.pl.CVE-2004-0976-2	2005-12-13 17:10:23.000000000 -0500
+++ perl-5.8.5/lib/perl5db.pl	2005-12-13 17:14:05.000000000 -0500
@@ -207,7 +207,7 @@
 =item * noTTY 
 
 if set, goes in NonStop mode.  On interrupt, if TTY is not set,
-uses the value of noTTY or "/var/run/perldbtty$$" to find TTY using
+uses the value of noTTY or "$HOME/perldbtty$$" to find TTY using
 Term::Rendezvous.  Current variant is to have the name of TTY in this
 file.
 
@@ -5810,8 +5810,8 @@
             eval "require Term::Rendezvous;" or die;
 
             # See if we have anything to pass to Term::Rendezvous.
-            # Use /var/run/perldbtty$$ if not.
-            my $rv = $ENV{PERLDB_NOTTY} || "/var/run/perldbtty$$";
+            # Use $HOME/perldbtty$$ if not.
+            my $rv = $ENV{PERLDB_NOTTY} || ( $ENV{HOME} ? $ENV{HOME} : /tmp ) ."/perldbtty$$";
 
             # Rendezvous and get the filehandles.
             my $term_rv = new Term::Rendezvous $rv;