diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/AnyDBM_File.t | 2 | ||||
| -rw-r--r-- | lib/File/Copy.pm | 3 | ||||
| -rw-r--r-- | lib/FileHandle.t | 2 | ||||
| -rw-r--r-- | lib/Net/hostent.t | 2 | ||||
| -rw-r--r-- | lib/Pod/t/Usage.t | 1 | ||||
| -rw-r--r-- | lib/perl5db.pl | 10 |
6 files changed, 6 insertions, 14 deletions
diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t index d061abad25..215868265e 100644 --- a/lib/AnyDBM_File.t +++ b/lib/AnyDBM_File.t @@ -13,7 +13,7 @@ use Fcntl; $Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' || - $^O eq 'NetWare' || $^O eq 'dos' || + $^O eq 'dos' || $^O eq 'os2' || $^O eq 'cygwin'); diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 05ed01b735..9acdbe5107 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -24,7 +24,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.36'; +$VERSION = '2.37'; require Exporter; @ISA = qw(Exporter); @@ -119,7 +119,6 @@ sub copy { && !$to_a_handle && !($from_a_handle && $^O eq 'os2' ) # OS/2 cannot handle handles && !($from_a_handle && $^O eq 'MSWin32') - && !($from_a_handle && $^O eq 'NetWare') ) { if ($^O eq 'VMS' && -e $from diff --git a/lib/FileHandle.t b/lib/FileHandle.t index f4a8800bef..e71aa12971 100644 --- a/lib/FileHandle.t +++ b/lib/FileHandle.t @@ -63,7 +63,7 @@ SKIP: { my ($rd,$wr) = FileHandle::pipe; my $non_forking = ( $^O eq 'VMS' || $^O eq 'os2' || $^O eq 'amigaos' || - $^O eq 'MSWin32' || $^O eq 'NetWare' || $Config{d_fork} ne 'define' + $^O eq 'MSWin32' || $Config{d_fork} ne 'define' ); my $content = "Writing to one end of a pipe, reading from the other\n"; if ($non_forking) { diff --git a/lib/Net/hostent.t b/lib/Net/hostent.t index f1be69e836..0f9dca0e1f 100644 --- a/lib/Net/hostent.t +++ b/lib/Net/hostent.t @@ -65,7 +65,7 @@ ok(defined $i, 'gethost on capture variable'); SKIP: { skip "Windows will return the machine name instead of 'localhost'", 2 - if $^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'cygwin'; + if $^O eq 'MSWin32' or $^O eq 'cygwin'; print "# name = " . $h->name . ", aliases = " . join (",", @{$h->aliases}) . "\n"; diff --git a/lib/Pod/t/Usage.t b/lib/Pod/t/Usage.t index 92aaf2e457..e626acb6f7 100644 --- a/lib/Pod/t/Usage.t +++ b/lib/Pod/t/Usage.t @@ -57,7 +57,6 @@ SKIP: { "-input => q{$0}", ); my $cq = (($^O eq 'MSWin32' - || $^O eq 'NetWare' || $^O eq 'VMS') ? '"' : ""); my @params = ( "${cq}-I../lib$cq", "${cq}-MPod::Usage$cq", '-e' ); diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 7a33abb484..77c9407135 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1584,7 +1584,7 @@ We then determine what the console should be on various systems: =back Several other systems don't use a specific console. We C<undef $console> -for those (Windows using a slave editor/graphical debugger, NetWare, OS/2 +for those (Windows using a slave editor/graphical debugger, OS/2 with a slave editor). =cut @@ -1595,12 +1595,6 @@ with a slave editor). $console = undef; } - if ( $^O eq 'NetWare' ) { - - # /dev/tty is binary. use stdin for textmode - $console = undef; - } - # In OS/2, we need to use STDIN to get textmode too, even though # it pretty much looks like Unix otherwise. if ( defined $ENV{OS2_SHELL} and ( $slave_editor or $ENV{WINDOWID} ) ) @@ -8975,7 +8969,7 @@ Just checks the contents of C<$^O> and sets the C<$doccmd> global accordingly. =cut sub setman { - $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|dos|amigaos|riscos|NetWare)\z/s + $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|dos|amigaos|riscos)\z/s ? "man" # O Happy Day! : "perldoc"; # Alas, poor unfortunates } ## end sub setman |