diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
| commit | fe14fcc35f78a371a174a1d14256c2f35ae4262b (patch) | |
| tree | d472cb1055c47b9701cb0840969aacdbdbc9354a /os2/suffix.c | |
| parent | 27e2fb84680b9cc1db17238d5bf10b97626f477f (diff) | |
| download | perl-fe14fcc35f78a371a174a1d14256c2f35ae4262b.tar.gz | |
perl 4.0.00: (no release announcement available)perl-4.0.00
So far, 4.0 is still a beta test version. For the last production
version, look in pub/perl.3.0/kits@44.
Diffstat (limited to 'os2/suffix.c')
| -rw-r--r-- | os2/suffix.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/os2/suffix.c b/os2/suffix.c index 2dbb02b525..d766da37bc 100644 --- a/os2/suffix.c +++ b/os2/suffix.c @@ -134,13 +134,14 @@ char *s; switch(DosOpen(s, &hf, &usAction, 0L, 0, FILE_OPEN, OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L)) { + case ERROR_INVALID_NAME: + case ERROR_FILENAME_EXCED_RANGE: + return 0; case NO_ERROR: DosClose(hf); /*FALLTHROUGH*/ default: return 1; - case ERROR_FILENAME_EXCED_RANGE: - return 0; } } #endif /* OS2 */ |