ask 00/08/09 18:45:39
Modified: . Changes
src/modules/perl Apache.xs
Log:
bug with Apache::print not dereferencing scalar referencess that are
of type SVt_PVIV.
Submitted by: T.J. Mather <[EMAIL PROTECTED]>
Revision Changes Path
1.504 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.503
retrieving revision 1.504
diff -u -r1.503 -r1.504
--- Changes 2000/08/02 15:53:11 1.503
+++ Changes 2000/08/10 01:45:38 1.504
@@ -10,6 +10,9 @@
=item 1.24_01-dev
+fixed bug with Apache::print not dereferencing scalar referencess that
+are of type SVt_PVIV. [ T.J. Mather <[EMAIL PROTECTED]> / Ask ]
+
quotemeta path_info in Registry regexp
[Tobias Hoellrich <[EMAIL PROTECTED]>]
1.100 +2 -1 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -r1.99 -r1.100
--- Apache.xs 2000/07/25 17:59:48 1.99
+++ Apache.xs 2000/08/10 01:45:39 1.100
@@ -1080,7 +1080,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) ?
(SV*)SvRV(ST(i)) : ST(i);
buffer = SvPV(sv, len);
#ifdef APACHE_SSL