This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix thinko in perlsdio.h.
authorCraig A. Berry <craigberry@mac.com>
Thu, 16 Jul 2015 11:34:42 +0000 (06:34 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 16 Jul 2015 22:48:50 +0000 (17:48 -0500)
In 04ce8649990 I inadvertently created conflicting definitions for
PerlIO_ungetc on the non-VMS branch of an #ifdef.  This broke a
NetWare build that was still based on the stdio layer.  See
<http://nntp.perl.org/group/perl.perl5.porters/228427>.  Even
though stdio is no longer supported, we really ought to ship
something that compiles up until the point where we remove it,
which will hopefully be soon for perlsdio.h.

N.B.  This commit is not sufficient to get stdio as the base
layer working again.  Notably XS::APITest is broken for unrelated
reasons.

perlsdio.h

index cb25577..3518361 100644 (file)
@@ -47,10 +47,9 @@ END_EXTERN_C
             ((*(f))->_ptr > (*(f))->_base)) ? \
             ((*(f))->_cnt++, *(--(*(f))->_ptr) = (c)) : decc$ungetc(c,f)))
 #else
-#    define PerlIO_ungetc(f,c)         ungetc(c,f)
+#    define PerlIO_ungetc(f,c)         PerlSIO_ungetc(c,f)
 #endif
 #define PerlIO_getc(f)         PerlSIO_fgetc(f)
-#define PerlIO_ungetc(f,c)             PerlSIO_ungetc(c,f)
 #define PerlIO_read(f,buf,count)       (SSize_t)PerlSIO_fread(buf,1,count,f)
 #define PerlIO_tell(f)         PerlSIO_ftell(f)
 #define PerlIO_eof(f)                  PerlSIO_feof(f)