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 (file)
--- 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.