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 2002/07/05 07:05:36 UTC
cvs commit: modperl-2.0/xs/APR/PerlIO apr_perlio.c
stas 2002/07/04 22:05:36
Modified: xs/APR/PerlIO apr_perlio.c
Log:
use modperl_apr_strerror() instead of doing manual converting
Revision Changes Path
1.20 +1 -2 modperl-2.0/xs/APR/PerlIO/apr_perlio.c
Index: apr_perlio.c
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/PerlIO/apr_perlio.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- apr_perlio.c 21 Jun 2002 17:40:18 -0000 1.19
+++ apr_perlio.c 5 Jul 2002 05:05:36 -0000 1.20
@@ -158,12 +158,11 @@
}
else if (rc != APR_SUCCESS) {
#ifdef PERLIO_APR_DEBUG
- char errbuf[120];
/* XXX: need to figure way to map APR errno to normal errno,
* so we can use SETERRNO to make the apr errors available to
* Perl's $! */
Perl_croak(aTHX_ "failed to read from file: %s",
- apr_strerror(rc, errbuf, sizeof errbuf));
+ modperl_apr_strerror(rc));
#endif
PerlIOBase(f)->flags |= PERLIO_F_ERROR;
return -1;