You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/03/04 00:07:29 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_io_apache.c
stas 2004/03/03 15:07:29
Modified: src/modules/perl modperl_io_apache.c
Log:
we can't do sv_setpv(get_sv("!", TRUE), ...) as it breaks the magic for $!
and the error message will persist for the rest of the interpreter life.
Revision Changes Path
1.16 +1 -1 modperl-2.0/src/modules/perl/modperl_io_apache.c
Index: modperl_io_apache.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io_apache.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -u -r1.15 -r1.16
--- modperl_io_apache.c 29 Jan 2004 02:47:34 -0000 1.15
+++ modperl_io_apache.c 3 Mar 2004 23:07:29 -0000 1.16
@@ -292,7 +292,7 @@
else {
error = modperl_apr_strerror(rc);
}
- sv_setpv(get_sv("!", TRUE),
+ sv_setpv(ERRSV,
(char *)apr_psprintf(r->pool,
"failed to get bucket brigade: %s",
error));