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 (file)
--- 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;