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

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 4f1deb4d69937ce96ffd5e372f2866101bc94fc5..86675c854bb308199163930de6de3db224537390 100644 (file)
--- 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;