From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 17 Feb 2007 14:12:07 +0000 (+0000)
Subject: Missed an aTHX_ in B's call to Perl_emulate_cop_io.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33972ad64a99b9ebe310f5ddfe85338f71fea66d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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: