diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-21 18:35:55 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-24 16:25:58 +0000 |
| commit | e1ec3a884f8d8c64eb7e391b2a363f47cbeed570 (patch) | |
| tree | 13e83e61449ed542f309f1cd88e7ed42778ca543 /perlio.c | |
| parent | 2bbb3949e88673e7f0574ab70254a46d776242e9 (diff) | |
| download | perl-e1ec3a884f8d8c64eb7e391b2a363f47cbeed570.tar.gz | |
Third consting batch
Message-Id: <2f14220e7101a03f7659dbe79a03b115@petdance.com>
p4raw-id: //depot/perl@24074
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -463,10 +463,10 @@ PerlIO_debug(const char *fmt, ...) } if (dbg > 0) { dTHX; + const char *s; #ifdef USE_ITHREADS /* Use fixed buffer as sv_catpvf etc. needs SVs */ char buffer[1024]; - char *s; STRLEN len; s = CopFILE(PL_curcop); if (!s) @@ -477,7 +477,6 @@ PerlIO_debug(const char *fmt, ...) PerlLIO_write(dbg, buffer, strlen(buffer)); #else SV *sv = newSVpvn("", 0); - char *s; STRLEN len; s = CopFILE(PL_curcop); if (!s) |