diff options
| author | mauzo@csv.warwick.ac.uk <mauzo@csv.warwick.ac.uk> | 2002-10-21 10:18:50 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-24 23:46:29 +0000 |
| commit | 53782852c4180f19fdba07aae83d56ebeb358e94 (patch) | |
| tree | b634a22d837557c540d3ebe70f3bdd9c20907616 | |
| parent | d0063567ae6829f18fa94be9ac4f0b3986e32f5a (diff) | |
| download | perl-53782852c4180f19fdba07aae83d56ebeb358e94.tar.gz | |
[perl #18036] perldoc refuses to run on BeOS
From: "mauzo@csv.warwick.ac.uk (via RT)" <perlbug@perl.org>
Message-Id: <rt-18036-40246.15.4017814246886@bugs6.perl.org>
p4raw-id: //depot/perl@18059
| -rw-r--r-- | utils/perldoc.PL | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 860b91640b..e2c65369d9 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -94,6 +94,7 @@ my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; my $Is_Dos = $^O eq 'dos'; my $Is_OS2 = $^O eq 'os2'; +my $Is_BeOS = $^O eq 'beos'; sub usage{ warn "@_\n" if @_; @@ -159,8 +160,8 @@ print OUT <<'!NO!SUBS!'; usage if $opt_h; # attempt to drop privs if we should be tainting and aren't -if (!($Is_VMS || $Is_MSWin32 || $Is_Dos || $Is_OS2) && ($> == 0 || $< == 0) - && !am_taint_checking()) +if (!($Is_VMS || $Is_MSWin32 || $Is_Dos || $Is_OS2 || $Is_BeOS) + && ($> == 0 || $< == 0) && !am_taint_checking()) { my $id = eval { getpwnam("nobody") }; $id = eval { getpwnam("nouser") } unless defined $id; @@ -202,9 +203,8 @@ if ($opt_X) { if ((my $opts = do{ no warnings; $opt_t + $opt_u + $opt_m + $opt_l }) > 1) { usage("only one of -t, -u, -m or -l") } -elsif ($Is_MSWin32 - || $Is_Dos - || !($ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i)) +elsif ($Is_MSWin32 || $Is_Dos || $Is_BeOS + || !($ENV{TERM} && $ENV{TERM} !~ /dumb|emacs|none|unknown/i)) { $opt_t = 1 unless ( $opts || $opt_n ); } |