* Geoffrey Young <[EMAIL PROTECTED]> [2002-11-11 13:16]:
> > (oh, maybe someone could consider also adding some test case to
> > t/net/perl/util.pl but it does not seem to be very important)
>
> tests are always important :)
>
> > > I'm think that, with mod_perl 2.0, mod_perl 1.x might not be high on
> > > maintainer's list of stuff to do
>
> sorry, but I haven't been following too closely lately.
>
> if you can provide a final patch to Util.xs and util.pl and they past
> muster with the rest of the committers, I'll see that they get
> integrated into CVS 'soonish'
Two patches, one for t/net/util.pl and one for src/modules/perl/Util.xs.
Apply them from the root of the untarred source.
(darren)
--
Of all the strange 'crimes' that human beings have legislated out of
nothing, 'blasphemy' is the most amazing--with 'obscenity' and 'indecent
exposure' fighting it out for second and third place.
-- Lazarus Long
--- t/net/perl/util.pl.orig Mon Nov 11 13:33:44 2002
+++ t/net/perl/util.pl Mon Nov 11 13:33:37 2002
@@ -57,6 +57,7 @@ my $html = <<EOF;
</head>
<body>
"ok"
+'la'
&how
</body>
</html>
--- src/modules/perl/Util.xs.orig Fri Nov 8 16:42:42 2002
+++ src/modules/perl/Util.xs Sat Nov 9 08:58:32 2002
@@ -45,6 +45,8 @@ static SV *my_escape_html(char *s)
j += 4;
else if (s[i] == '"')
j += 5;
+ else if (s[i] == '\'')
+ j += 5;
if (j == 0)
return newSVpv(s,i);
@@ -67,6 +69,10 @@ static SV *my_escape_html(char *s)
memcpy(&SvPVX(x)[j], """, 6);
j += 5;
}
+ else if (s[i] == '\'') {
+ memcpy(&SvPVX(x)[j], "'", 6);
+ j += 5;
+ }
else
SvPVX(x)[j] = s[i];
