From dbb46ceca0074efa8ff2e0c27b76d1ec7968da80 Mon Sep 17 00:00:00 2001
From: Dominique Quatravaux <unknown>
Date: Tue, 16 Dec 2003 15:03:24 +0000
Subject: [PATCH] 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
---
 lib/perl5db.pl | 3 +++
 1 file changed, 3 insertions(+)

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