diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-09 03:40:18 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-09 16:49:32 +0000 |
| commit | 5f66b61cbe1f2ea985f00c0d9a66153e7a3b6ee1 (patch) | |
| tree | 691d309b11acc12f89d4b6a7a6118f836662580d /deb.c | |
| parent | 8aee01e7619816b4465ed0b436a44670c5050455 (diff) | |
| download | perl-5f66b61cbe1f2ea985f00c0d9a66153e7a3b6ee1.tar.gz | |
Trying my "remove the pTHXes" patch again
Message-ID: <20060209154018.GA14610@petdance.com>
p4raw-id: //depot/perl@27136
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -32,6 +32,8 @@ Perl_deb_nocontext(const char *pat, ...) va_start(args, pat); vdeb(pat, &args); va_end(args); +#else + PERL_UNUSED_ARG(pat); #endif /* DEBUGGING */ } #endif @@ -54,7 +56,7 @@ Perl_vdeb(pTHX_ const char *pat, va_list *args) { #ifdef DEBUGGING dVAR; - char* file = OutCopFILE(PL_curcop); + const char* const file = OutCopFILE(PL_curcop); PerlIO_printf(Perl_debug_log, "(%s:%ld)\t", (file ? file : "<free>"), (long)CopLINE(PL_curcop)); |