Only unescape meta characters

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / SelectorParser.pm

diff --git a/lib/HTML/Zoom/SelectorParser.pm b/lib/HTML/Zoom/SelectorParser.pm
index f23f4b8..e2215f9 100644 (file)
--- a/lib/HTML/Zoom/SelectorParser.pm
+++ b/lib/HTML/Zoom/SelectorParser.pm
@@ -194,7 +194,7 @@ sub parse_selector {
 
 sub _unescape {
     my ($self, $escaped) = @_;
-    (my $unescaped = $escaped) =~ s/\\(.)/$1/g;
+    (my $unescaped = $escaped) =~ s/\\([\Q$sel_meta_char\E])/$1/g;
     return $unescaped;
 }