diff options
| author | Dominique Quatravaux <unknown> | 2003-12-16 15:03:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-21 15:33:19 +0000 |
| commit | dbb46ceca0074efa8ff2e0c27b76d1ec7968da80 (patch) | |
| tree | 36ec2d3f077acfe0511fa6e02dc4fd6aaab2f1ed /lib/perl5db.pl | |
| parent | 1a6a79b784525259ef3f326dcae7b68a3aaebb75 (diff) | |
| download | perl-dbb46ceca0074efa8ff2e0c27b76d1ec7968da80.tar.gz | |
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
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 9655956348..2c53448bb0 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. |