From 7b04410442708150869120009d1ad171f6154785 Mon Sep 17 00:00:00 2001 From: Nameless Date: Sat, 30 Dec 2017 18:41:16 -0500 Subject: [PATCH] Enabled ^H again Might've misinterpreted something. --- wakautils.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/wakautils.pl b/wakautils.pl index c047555..74f9a05 100644 --- a/wakautils.pl +++ b/wakautils.pl @@ -256,13 +256,13 @@ ($@) # do # $line=~s{ (?\s\*_]) ([^<>]+?) (?\s\*_\x80-\x9f\xe0-\xfc]) \1 (?![0-9a-zA-Z\*_]) }{$2}gx; - # do ^H - [disabled due to an exploit; uncomment instead] - # if($]>5.007) - # { - # my $regexp; - # $regexp=qr/(?:&#?[0-9a-zA-Z]+;|[^&<>])(?".(substr $1,0,(length $1)/3).""}gex; - # } + # do ^H + if($]>5.007) + { + my $regexp; + $regexp=qr/(?:&#?[0-9a-zA-Z]+;|[^&<>])(?".(substr $1,0,(length $1)/3).""}gex; + } $line=$handler->($line) if($handler);