cvs commit: modperl/src/modules/perl Apache.xs
ask 00/08/09 19:33:27 Modified:.Changes src/modules/perl Apache.xs Log: dereferencing from ->print is a waste of CPU cycles in the first place. Don't make it worse. Revision ChangesPath 1.505 +0 -3 modperl/Changes Index: Changes === RCS file: /home/cvs/modperl/Changes,v retrieving revision 1.504 retrieving revision 1.505 diff -u -r1.504 -r1.505 --- Changes 2000/08/10 01:45:38 1.504 +++ Changes 2000/08/10 02:33:19 1.505 @@ -10,9 +10,6 @@ =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.101 +1 -2 modperl/src/modules/perl/Apache.xs Index: Apache.xs === RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v retrieving revision 1.100 retrieving revision 1.101 diff -u -r1.100 -r1.101 --- Apache.xs 2000/08/10 01:45:39 1.100 +++ Apache.xs 2000/08/10 02:33:21 1.101 @@ -1080,8 +1080,7 @@ for(i = 1; i <= items - 1; i++) { int sent = 0; -SV *sv = SvROK(ST(i)) && (SvTYPE(SvRV(ST(i))) == SVt_PV -|| SvTYPE(SvRV(ST(i))) == SVt_PVIV) ? +SV *sv = SvROK(ST(i)) && (SvTYPE(SvRV(ST(i))) == SVt_PV) ? (SV*)SvRV(ST(i)) : ST(i); buffer = SvPV(sv, len); #ifdef APACHE_SSL
cvs commit: modperl/src/modules/perl Apache.xs
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 ChangesPath 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