This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Win32 has name conflict with ERROR
authorNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 29 Mar 2001 14:23:31 +0000 (14:23 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 29 Mar 2001 14:23:31 +0000 (14:23 +0000)
p4raw-id: //depot/perlio@9435

ext/PerlIO/Via/Via.xs

index 3f491da..0abcece 100644 (file)
@@ -33,7 +33,7 @@ typedef struct
  CV *FLUSH;
  CV *SETLINEBUF;
  CV *CLEARERR;
- CV *ERROR;
+ CV *mERROR;
  CV *mEOF;
 } PerlIOVia;
 
@@ -459,21 +459,21 @@ PerlIOVia_clearerr(PerlIO *f)
  PerlIOBase_clearerr(f);
 }
 
-IV
-PerlIOVia_error(PerlIO *f)
+SV *
+PerlIOVia_getarg(PerlIO *f)
 {
  dTHX;
  PerlIOVia *s = PerlIOSelf(f,PerlIOVia);
- SV *result = PerlIOVia_method(aTHX_ f,MYMethod(ERROR),G_SCALAR,Nullsv);
- return (result) ? SvIV(result) : PerlIOBase_error(f);
+ return PerlIOVia_method(aTHX_ f,MYMethod(GETARG),G_SCALAR,Nullsv);
 }
 
-SV *
-PerlIOVia_getarg(PerlIO *f)
+IV
+PerlIOVia_error(PerlIO *f)
 {
  dTHX;
  PerlIOVia *s = PerlIOSelf(f,PerlIOVia);
- return PerlIOVia_method(aTHX_ f,MYMethod(GETARG),G_SCALAR,Nullsv);
+ SV *result = PerlIOVia_method(aTHX_ f,"ERROR",&s->mERROR,G_SCALAR,Nullsv);
+ return (result) ? SvIV(result) : PerlIOBase_error(f);
 }
 
 IV