This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a side-effect of bug #24674 in the perl debugger.
authorDominique Quatravaux <unknown>
Tue, 16 Dec 2003 15:03:24 +0000 (15:03 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 21 Dec 2003 15:33:19 +0000 (15:33 +0000)
Subject: [perl #24674] 5.x odd taint bug
From: Dominique Quatravaux (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.7_01-24674-68456.11.3124667849085@perl.org>

p4raw-id: //depot/perl@21940

lib/perl5db.pl

index 9655956..2c53448 100644 (file)
@@ -536,6 +536,9 @@ if ( not defined &get_fork_TTY and defined $ENV{TERM} and $ENV{TERM} eq 'xterm'
 } elsif ($^O eq 'os2') {
     *get_fork_TTY = \&os2_get_fork_TTY;
 }
+# untaint $^O, which may have been tainted by the last statement.
+# see bug [perl #24674]
+$^O =~ m/^(.*)\z/; $^O = $1;
 
 # Here begin the unreadable code.  It needs fixing.