Re: [PATCH] $r->print won't print reference to PVIV or PVMG

[Stephen Clouse]

Turns out PVNV is a possibility as well (generally if the scalar is a 
zero-length string).  Here's an updated patch.

-- 
Stephen Clouse <[EMAIL PROTECTED]>
Senior Programmer, IQ Coordinator Project Lead
The IQ Group, Inc. <http://www.theiqgroup.com/>

diff -ur mod_perl-1.26.orig/src/modules/perl/Apache.xs 
mod_perl-1.26/src/modules/perl/Apache.xs
--- mod_perl-1.26.orig/src/modules/perl/Apache.xs       Fri Jul  6 15:15:04 2001
+++ mod_perl-1.26/src/modules/perl/Apache.xs    Sat Sep  8 18:08:47 2001
@@ -1171,7 +1171,8 @@
 
     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
+                                  || SvTYPE(SvRV(ST(i))) == SVt_PVNV || 
+SvTYPE(SvRV(ST(i))) == SVt_PVMG) ?
                  (SV*)SvRV(ST(i)) : ST(i);
        buffer = SvPV(sv, len);
 #ifdef APACHE_SSL

PGP signature