Re: [PATCH] User pragmas now accessible from B

[p5sagit/p5-mst-13.2.git] / ext / B / B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 3079f85..b2627aa 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1861,6 +1861,6 @@ SV*
 RHE_HASH(h)
        B::RHE h
     CODE:
-       RETVAL = newRV( (SV*)Perl_refcounted_he_chain_2hv(h) );
+       RETVAL = newRV( (SV*)Perl_refcounted_he_chain_2hv(aTHX_ h) );
     OUTPUT:
        RETVAL