From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 14 Mar 2001 23:46:52 +0000 (-0500)
Subject: perldoc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6dbadf308699c848819fc52dc962ee24afaa1f8e;p=p5sagit%2Fp5-mst-13.2.git

perldoc
Message-ID: <20010314234652.A7972@math.ohio-state.edu>

p4raw-id: //depot/perl@9167
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index ca631dd..aa61a97 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) {