From: Dan Kogai <dankogai@dan.co.jp>
Date: Thu, 25 Apr 2002 10:49:13 +0000 (+0900)
Subject: Re: [Encode] Patch to fix Encod-XML::SAX conflicts
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f33abd479d10892fecb2513174909a925ac1affa;p=p5sagit%2Fp5-mst-13.2.git

Re: [Encode] Patch to fix Encod-XML::SAX conflicts
Message-Id: <A4F06B9C-57EE-11D6-A6E0-00039301D480@dan.co.jp>

p4raw-id: //depot/perl@16150
---

diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs
index a9b7435..c35e3b9 100644
--- a/ext/PerlIO/encoding/encoding.xs
+++ b/ext/PerlIO/encoding/encoding.xs
@@ -145,7 +145,7 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg)
     if (SvIV(result = get_sv("PerlIO::encoding::check", 1)) == 0){
 	PUSHMARK(sp);
 	PUTBACK;
-	if (call_pv("Encode::FB_QUIET", G_SCALAR|G_NOARGS) != 1) {
+       if (call_pv("Encode::FB_QUIET", G_SCALAR) != 1) {
 	    /* should never happen */
 	    Perl_die(aTHX_ "Encode::FB_QUIET did not return a value");
 	    return -1;