This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence empty if-statement warning.
authorSteve Peters <steve@fisharerojo.org>
Mon, 10 Jul 2006 18:17:30 +0000 (18:17 +0000)
committerSteve Peters <steve@fisharerojo.org>
Mon, 10 Jul 2006 18:17:30 +0000 (18:17 +0000)
p4raw-id: //depot/perl@28534

universal.c

index e674d50..7bbcbdb 100644 (file)
@@ -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);
            }
        }