diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-14 18:58:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-14 18:58:01 +0000 |
| commit | 5fef3b4a7f0c97d32160df4fc2eebedccc3910c2 (patch) | |
| tree | eebfb8beda7327860e7014d801ea7c599c633e57 /universal.c | |
| parent | 92a3e63c3aba23d356cf70f5886c704d07f8067d (diff) | |
| download | perl-5fef3b4a7f0c97d32160df4fc2eebedccc3910c2.tar.gz | |
Build get_layers() also under -Uuseperlio.
p4raw-id: //depot/perl@19205
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/universal.c b/universal.c index 6b011cf27b..cecf17b64b 100644 --- a/universal.c +++ b/universal.c @@ -726,6 +726,7 @@ XS(XS_PerlIO_get_layers) dXSARGS; if (items < 1 || items % 2 == 0) Perl_croak(aTHX_ "Usage: PerlIO_get_layers(filehandle[,args])"); +#ifdef USE_PERLIO { SV * sv; GV * gv; @@ -841,6 +842,7 @@ XS(XS_PerlIO_get_layers) XSRETURN(nitem); } } +#endif XSRETURN(0); } |