diff options
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. |