Author: stas Date: Fri Jul 8 12:05:01 2005 New Revision: 209856 URL: http://svn.apache.org/viewcvs?rev=209856&view=rev Log: blead fix: "%_" => "%" SVf
Modified: perl/modperl/trunk/src/modules/perl/modperl_io.c Modified: perl/modperl/trunk/src/modules/perl/modperl_io.c URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_io.c?rev=209856&r1=209855&r2=209856&view=diff ============================================================================== --- perl/modperl/trunk/src/modules/perl/modperl_io.c (original) +++ perl/modperl/trunk/src/modules/perl/modperl_io.c Fri Jul 8 12:05:01 2005 @@ -124,7 +124,7 @@ status = Perl_do_open(aTHX_ handle_save, "<&STDIN", 7, FALSE, O_RDONLY, 0, Nullfp); if (status == 0) { - Perl_croak(aTHX_ "Failed to dup STDIN: %_", get_sv("!", TRUE)); + Perl_croak(aTHX_ "Failed to dup STDIN: %" SVf, get_sv("!", TRUE)); } /* similar to PerlIO::scalar, the PerlIO::Apache layer doesn't @@ -137,7 +137,7 @@ status = Perl_do_open9(aTHX_ handle, "<:Apache2", 9, FALSE, O_RDONLY, 0, Nullfp, sv, 1); if (status == 0) { - Perl_croak(aTHX_ "Failed to open STDIN: %_", get_sv("!", TRUE)); + Perl_croak(aTHX_ "Failed to open STDIN: %" SVf, get_sv("!", TRUE)); } MP_TRACE_o(MP_FUNC, "end\n"); @@ -167,7 +167,7 @@ status = Perl_do_open(aTHX_ handle_save, ">&STDOUT", 8, FALSE, O_WRONLY, 0, Nullfp); if (status == 0) { - Perl_croak(aTHX_ "Failed to dup STDOUT: %_", get_sv("!", TRUE)); + Perl_croak(aTHX_ "Failed to dup STDOUT: %" SVf, get_sv("!", TRUE)); } /* similar to PerlIO::scalar, the PerlIO::Apache layer doesn't @@ -180,7 +180,7 @@ status = Perl_do_open9(aTHX_ handle, ">:Apache2", 9, FALSE, O_WRONLY, 0, Nullfp, sv, 1); if (status == 0) { - Perl_croak(aTHX_ "Failed to open STDOUT: %_", get_sv("!", TRUE)); + Perl_croak(aTHX_ "Failed to open STDOUT: %" SVf, get_sv("!", TRUE)); } MP_TRACE_o(MP_FUNC, "end\n"); @@ -221,7 +221,7 @@ GvNAME(handle), GvNAMELEN(handle), G_DISCARD); if (err != Nullsv) { - Perl_croak(aTHX_ "Failed to restore STDIN: %_", err); + Perl_croak(aTHX_ "Failed to restore STDIN: %" SVf, err); } } @@ -243,7 +243,7 @@ */ if (GvIOn(handle_orig) && IoOFP(GvIOn(handle_orig)) && (PerlIO_flush(IoOFP(GvIOn(handle_orig))) == -1)) { - Perl_croak(aTHX_ "Failed to flush STDOUT: %_", get_sv("!", TRUE)); + Perl_croak(aTHX_ "Failed to flush STDOUT: %" SVf, get_sv("!", TRUE)); } /* close the overriding filehandle */ @@ -268,7 +268,7 @@ GvNAME(handle), GvNAMELEN(handle), G_DISCARD); if (err != Nullsv) { - Perl_croak(aTHX_ "Failed to restore STDOUT: %_", err); + Perl_croak(aTHX_ "Failed to restore STDOUT: %" SVf, err); } }