The Wakaba and Kareha support thread, part 3 (535)

136 Name: Anonymous : 2011-11-15 09:04 ID:Heaven [Del]

>>135
Oh and if it matters, I'm getting a regex error in this section for some reason, and I don't understand what that has to do with my changes:

# do ^H
if($]>5.007)
{
my $regexp;
$regexp=qr/(?:&#?[0-9a-zA-Z]+;|[^&<>])(?<!\^H)(??{$regexp})?\^H/;
$line=~s{($regexp)}{"<del>".(substr $1,0,(length $1)/3)."</del>"}gex;
}
Name: Link:
Leave these fields empty (spam trap):
More options...
Verification: