From: Dominique Quatravaux <unknown>
Date: Tue, 16 Dec 2003 15:03:24 +0000 (+0000)
Subject: Fix a side-effect of bug #24674 in the perl debugger.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbb46ceca0074efa8ff2e0c27b76d1ec7968da80;p=p5sagit%2Fp5-mst-13.2.git

Fix a side-effect of bug #24674 in the perl debugger.

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
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 9655956..2c53448 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -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.