diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-03-14 18:46:52 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-15 14:07:42 +0000 |
| commit | 6dbadf308699c848819fc52dc962ee24afaa1f8e (patch) | |
| tree | 26e393e8b3371356e514a99ae2ad16f82b8aac19 /utils/perldoc.PL | |
| parent | 63478870f61d3f4e0428fe761bb835b4cc010aa6 (diff) | |
| download | perl-6dbadf308699c848819fc52dc962ee24afaa1f8e.tar.gz | |
perldoc
Message-ID: <20010314234652.A7972@math.ohio-state.edu>
p4raw-id: //depot/perl@9167
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index ca631dda2b..aa61a97293 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -81,6 +81,7 @@ my $global_target = ""; my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; my $Is_Dos = $^O eq 'dos'; +my $Is_OS2 = $^O eq 'os2'; sub usage{ warn "@_\n" if @_; @@ -149,7 +150,7 @@ usage if $opt_h; # refuse to run if we should be tainting and aren't # (but regular users deserve protection too, though!) -if (!($Is_VMS || $Is_MSWin32 || $Is_Dos) && ($> == 0 || $< == 0) +if (!($Is_VMS || $Is_MSWin32 || $Is_Dos || $Is_OS2) && ($> == 0 || $< == 0) && !am_taint_checking()) {{ if ($opt_U) { |