develooper Front page | perl.perl5.porters | Postings from March 2001

[PATCH 5.6.1] perldoc

Thread Next
From:
Ilya Zakharevich
Date:
March 14, 2001 20:47
Subject:
[PATCH 5.6.1] perldoc
Message ID:
20010314234652.A7972@math.ohio-state.edu
Would not work on OS/2.

Enjoy,
Ilya

--- ./utils/perldoc.PL.orig	Wed Jan 31 10:56:54 2001
+++ ./utils/perldoc.PL	Wed Mar 14 04:01:48 2001
@@ -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) {

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About