diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-03 09:34:23 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-03 09:34:23 +0000 |
| commit | 58c0efa57789d77088d564834046e633a5c42edc (patch) | |
| tree | 8ad8fa3e14072793d267b4fc84308e8d2d9f63cc /perlio.c | |
| parent | 7dfde25db661bada3e1f19c61513f0bac481ca05 (diff) | |
| download | perl-58c0efa57789d77088d564834046e633a5c42edc.tar.gz | |
Compilation warnings fixes by Jerry D. Hedden
p4raw-id: //depot/perl@30447
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -134,6 +134,7 @@ perlsio_binmode(FILE *fp, int iotype, int mode) */ #ifdef DOSISH # if defined(atarist) || defined(__MINT__) + PERL_UNUSED_ARG(iotype); if (!fflush(fp)) { if (mode & O_BINARY) ((FILE *) fp)->_flag |= _IOBIN; @@ -144,6 +145,7 @@ perlsio_binmode(FILE *fp, int iotype, int mode) return 0; # else dTHX; + PERL_UNUSED_ARG(iotype); #ifdef NETWARE if (PerlLIO_setmode(fp, mode) != -1) { #else @@ -174,6 +176,9 @@ document #else # if defined(USEMYBINMODE) dTHX; +# if defined(__CYGWIN__) + PERL_UNUSED_ARG(iotype); +# endif if (my_binmode(fp, iotype, mode) != FALSE) return 1; else @@ -914,6 +919,7 @@ XS(XS_PerlIO__Layer__NoWarnings) */ dVAR; dXSARGS; + PERL_UNUSED_ARG(cv); if (items) PerlIO_debug("warning:%s\n",SvPV_nolen_const(ST(0))); XSRETURN(0); @@ -923,6 +929,7 @@ XS(XS_PerlIO__Layer__find) { dVAR; dXSARGS; + PERL_UNUSED_ARG(cv); if (items < 2) Perl_croak(aTHX_ "Usage class->find(name[,load])"); else { |