Missed an aTHX_ in B's call to Perl_emulate_cop_io.

Missed that global.sym was modified.

p4raw-id: //depot/perl@30335

diff --git a/ext/B/B.xs b/ext/B/B.xs
index d12392f..eb7157b 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -304,7 +304,7 @@ make_cop_io_object(pTHX_ SV *arg, COP *cop)
 {
     SV *const value = newSV(0);
 
-    Perl_emulate_cop_io(cop, value);
+    Perl_emulate_cop_io(aTHX_ cop, value);
 
     if(SvOK(value)) {
        return make_temp_object(aTHX_ arg, newSVsv(value));

diff --git a/global.sym b/global.sym
index 3a63bbc..9ade2fa 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -736,4 +736,5 @@ Perl_my_cxt_index
 Perl_my_strlcat
 Perl_my_strlcpy
 Perl_signbit
+Perl_emulate_cop_io
 # ex: set ro: