diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-07-06 16:30:53 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2021-10-08 19:21:33 +0100 |
commit | 2eb109a4d326f05244e37f956ca8cd8b0db22b19 (patch) | |
tree | a8298fe2c529c6d6438fd75c144d91b18823824d /ext/File-Glob | |
parent | 07a6208729c01c230010594c3e08a946ab0ccbef (diff) | |
download | perl-2eb109a4d326f05244e37f956ca8cd8b0db22b19.tar.gz |
Remove NetWare support
The build has been broken since 2009.
Diffstat (limited to 'ext/File-Glob')
-rw-r--r-- | ext/File-Glob/bsd_glob.c | 4 | ||||
-rw-r--r-- | ext/File-Glob/t/basic.t | 6 | ||||
-rw-r--r-- | ext/File-Glob/t/case.t | 2 |
3 files changed, 4 insertions, 8 deletions
diff --git a/ext/File-Glob/bsd_glob.c b/ext/File-Glob/bsd_glob.c index 085018d251..8fab443d2c 100644 --- a/ext/File-Glob/bsd_glob.c +++ b/ext/File-Glob/bsd_glob.c @@ -187,11 +187,7 @@ static Direntry_t * my_readdir(DIR*); static Direntry_t * my_readdir(DIR *d) { -#ifndef NETWARE return PerlDir_read(d); -#else - return (DIR *)PerlDir_read(d); -#endif } #else diff --git a/ext/File-Glob/t/basic.t b/ext/File-Glob/t/basic.t index 036d7d55f6..412fe7ec14 100644 --- a/ext/File-Glob/t/basic.t +++ b/ext/File-Glob/t/basic.t @@ -59,7 +59,7 @@ my @a; SKIP: { my ($name, $home); - skip $^O, 1 if $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' + skip $^O, 1 if $^O eq 'MSWin32' || $^O eq 'VMS' || $^O eq 'os2'; skip "Can't find user for $>: $@", 1 unless eval { ($name, $home) = (getpwuid($>))[0,7]; @@ -133,14 +133,14 @@ if (GLOB_ERROR) { # XXX since errfunc is NULL on win32, this test is not valid there @a = bsd_glob("asdfasdf", 0); SKIP: { - skip $^O, 1 if $^O eq 'MSWin32' || $^O eq 'NetWare'; + skip $^O, 1 if $^O eq 'MSWin32'; is_deeply(\@a, [], "bsd_glob() works as expected for unmatched pattern and 0 flag"); } # check bad protections # should return an empty list, and set ERROR SKIP: { - skip $^O, 2 if $^O eq 'MSWin32' or $^O eq 'NetWare' + skip $^O, 2 if $^O eq 'MSWin32' or $^O eq 'os2' or $^O eq 'VMS' or $^O eq 'cygwin'; skip "AFS", 2 if Cwd::cwd() =~ m#^$Config{'afsroot'}#s; skip "running as root", 2 if not $>; diff --git a/ext/File-Glob/t/case.t b/ext/File-Glob/t/case.t index 5d8e011688..320e7d14f1 100644 --- a/ext/File-Glob/t/case.t +++ b/ext/File-Glob/t/case.t @@ -32,7 +32,7 @@ cmp_ok(scalar @a, '>=', 3, 'explicit use of the GLOB_NOCASE flag'); # Test Win32 backslash nastiness... SKIP: { - skip 'Not Win32 or NetWare', 3 unless $^O eq 'MSWin32' || $^O eq 'NetWare'; + skip 'Not Win32', 3 unless $^O eq 'MSWin32'; @a = File::Glob::bsd_glob("op\\g*.t"); cmp_ok(scalar @a, '>=', 8); |