X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=indirect.xs;h=86675c854bb308199163930de6de3db224537390;hb=3e265f46afadfcfcf59a40560681ced9e33553a9;hp=b9314ae60a2e92298ff50c63a2c8029373f93a5c;hpb=cfbd22399e253cbac1aad5436d2b191082befe14;p=perl%2Fmodules%2Findirect.git

diff --git a/indirect.xs b/indirect.xs
index b9314ae..86675c8 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -256,7 +256,7 @@ STATIC U32 indirect_hash = 0;
 STATIC SV *indirect_hint(pTHX) {
 #define indirect_hint() indirect_hint(aTHX)
  SV *id;
-#if I_HAS_PERL(5, 10, 0)
+#if I_HAS_PERL(5, 9, 5)
  id = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash,
                                      NULL,
                                      __PACKAGE__, __PACKAGE_LEN__,
@@ -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;