diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-02 07:19:43 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-03 08:31:26 +0000 |
| commit | b464bac0b70c4876af1296864220315edde8461d (patch) | |
| tree | 9d2088559b19bbf0fbf64591f1dcd7df4961be5b /perlio.c | |
| parent | 2d706fb2bbfd21eac5cd2efc341a42f1caed2490 (diff) | |
| download | perl-b464bac0b70c4876af1296864220315edde8461d.tar.gz | |
Random consting
Message-ID: <20050602171943.GA16553@petdance.com>
p4raw-id: //depot/perl@24689
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1160,7 +1160,7 @@ PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab), const char *mode, SV *arg) Perl_croak(aTHX_ "Layer does not match this perl"); } if (tab->size) { - PerlIOl *l = NULL; + PerlIOl *l; if (tab->size < sizeof(PerlIOl)) { goto mismatch; } @@ -2507,7 +2507,7 @@ PerlIOUnix_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) return 0; } while (1) { - SSize_t len = PerlLIO_read(fd, vbuf, count); + const SSize_t len = PerlLIO_read(fd, vbuf, count); if (len >= 0 || errno != EINTR) { if (len < 0) { if (errno != EAGAIN) { @@ -2522,6 +2522,7 @@ PerlIOUnix_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) } PERL_ASYNC_CHECK(); } + /*NOTREACHED*/ } SSize_t |