diff options
| author | Craig A. Berry <craigberry@mac.com> | 2014-06-08 18:14:57 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2014-06-08 20:33:09 -0500 |
| commit | 5876737a160ce8f490b3d77eb7edd87391db1968 (patch) | |
| tree | 260f71fa72e0a53ca30af22312f8cffd8913fa4e /iperlsys.h | |
| parent | ba5248fcde21acfb9d93220ec07256804525c18e (diff) | |
| download | perl-5876737a160ce8f490b3d77eb7edd87391db1968.tar.gz | |
Eliminate VMS-specific code in PerlIOStdio_fill.
The same logic but with more safety checks is already defined for
PerlSIO_ungetc in iperlsys.h, so DRY says we should just use that.
Also, that definition in iperlsys.h really depends on the library
we are using, not the compiler. And there is only one viable C
library on VMS and it ships with the OS, so it's really just an
OS dependency.
N.B. While it may be something of a fool's errand to maintain the
stdio layer, deleting redundant code can only be a good thing,
possibly enabling further refactoring and clean-up.
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/iperlsys.h b/iperlsys.h index 003405f690..9604ad46d6 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -315,7 +315,7 @@ struct IPerlStdIOInfo #define PerlSIO_fputs(s,f) fputs(s,f) #define PerlSIO_fflush(f) Fflush(f) #define PerlSIO_fgets(s, n, f) fgets(s,n,f) -#if defined(VMS) && defined(__DECC) +#if defined(__VMS) /* Unusual definition of ungetc() here to accommodate fast_sv_gets()' * belief that it can mix getc/ungetc with reads from stdio buffer */ int decc$ungetc(int __c, FILE *__stream); |