perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "T.J. Mather" <tjmat...@thoughtstore.com>
Subject [BUG FIX] Apache.xs write_client
Date Wed, 09 Aug 2000 16:25:30 GMT
Hi,

I have already posted this to mod_perl@apache.org:

I found and fixed a bug with Apache::print not dereferencing scalar
referencess that are of type SVt_PVIV.  The patch is

PATCH:
--- Apache.xs.old       Wed Aug  9 10:23:31 2000
+++ Apache.xs   Wed Aug  9 10:23:13 2000
@@ -1076,7 +1076,7 @@

     for(i = 1; i <= items - 1; i++) {
        int sent = 0;
-        SV *sv = SvROK(ST(i)) && (SvTYPE(SvRV(ST(i))) == SVt_PV) ?
+        SV *sv = SvROK(ST(i)) && (SvTYPE(SvRV(ST(i))) == SVt_PV || SvTYPE(SvRV(ST(i)))
== SVt_PVIV) ?
                  (SV*)SvRV(ST(i)) : ST(i);
        buffer = SvPV(sv, len);
 #ifdef APACHE_SSL


Mime
View raw message