diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-13 17:46:17 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-14 10:00:36 +0000 |
| commit | bb263b4e883e8d326ee443c4da58aa78aea8b77b (patch) | |
| tree | 096fe00883880830ee4ec89f9972c74222e29ae5 /perlio.c | |
| parent | 2a509ed3c095f7d712013e653f68821f6bb2d6db (diff) | |
| download | perl-bb263b4e883e8d326ee443c4da58aa78aea8b77b.tar.gz | |
Sun Studio lint patches
Message-ID: <20060214054617.GA8824@petdance.com>
p4raw-id: //depot/perl@27177
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -2289,6 +2289,8 @@ PerlIO_init(pTHX) /* Place holder for stdstreams call ??? */ #ifdef USE_THREADS MUTEX_INIT(&PerlIO_mutex); +#else + PERL_UNUSED_ARG(my_perl); #endif } @@ -2542,6 +2544,7 @@ PerlIOUnix_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, } else { if (f) { + /*EMPTY*/; /* * FIXME: pop layers ??? */ @@ -2918,6 +2921,7 @@ PerlIOStdio_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) goto set_this; } else { + /*EMPTY*/; /* FIXME: To avoid messy error recovery if dup fails re-use the existing stdio as though flag was not set */ @@ -3233,6 +3237,7 @@ PerlIOStdio_flush(pTHX_ PerlIO *f) return PerlSIO_fflush(stdio); } else { + /*EMPTY*/; #if 0 /* * FIXME: This discards ungetc() and pre-read stuff which is not @@ -4360,6 +4365,7 @@ PerlIOCrlf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt) ptr -= cnt; } else { + /*EMPTY*/; #if 0 /* * Test code - delete when it works ... |