From 5f66b61cbe1f2ea985f00c0d9a66153e7a3b6ee1 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Thu, 9 Feb 2006 03:40:18 -0600 Subject: Trying my "remove the pTHXes" patch again Message-ID: <20060209154018.GA14610@petdance.com> p4raw-id: //depot/perl@27136 --- deb.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'deb.c') diff --git a/deb.c b/deb.c index a21066e697..df2ccffaa4 100644 --- a/deb.c +++ b/deb.c @@ -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 : ""), (long)CopLINE(PL_curcop)); -- cgit v1.2.1