From: Vincent Pit <vince@profvince.com>
Date: Sat, 23 May 2009 22:28:59 +0000 (+0200)
Subject: We want to test code in ck_entersub(), not hint
X-Git-Tag: v0.13~5
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=3e265f46afadfcfcf59a40560681ced9e33553a9

We want to test code in ck_entersub(), not hint
---

diff --git a/indirect.xs b/indirect.xs
index 4f1deb4..86675c8 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -516,7 +516,7 @@ STATIC OP *indirect_ck_entersub(pTHX_ OP *o) {
   if (mpos < opos) {
    SV *code = indirect_detag(hint);
 
-   if (hint) {
+   if (code) {
     SV     *file;
     line_t  line;
     dSP;