From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 10 Jul 2006 18:17:30 +0000 (+0000)
Subject: Silence empty if-statement warning.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17bcfd59e475bc04ce8413d24f07dfe2b5f2ce1c;p=p5sagit%2Fp5-mst-13.2.git

Silence empty if-statement warning.

p4raw-id: //depot/perl@28534
---

diff --git a/universal.c b/universal.c
index e674d50..7bbcbdb 100644
--- a/universal.c
+++ b/universal.c
@@ -69,9 +69,11 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash,
 	    SV** const svp = (SV**)hv_fetch(hv, name, len, FALSE);
 	    if (svp) {
 		SV * const sv = *svp;
+#ifdef DEBUGGING
 		if (sv != &PL_sv_undef)
 		    DEBUG_o( Perl_deb(aTHX_ "Using cached ISA %s for package %s\n",
 				    name, hvname) );
+#endif
 		return (sv == &PL_sv_yes);
 	    }
 	}