Merge pull request #18 from Madskill/fix_unescape

fix unescape

lib/Data/DPath/Path.pm

@@ -39,8 +39,8 @@ sub unescape {
         my ($str) = @_;
 
         return unless defined $str;
-        $str =~ s/(?<!\\)\\(["'])/$1/g; # '"$
         $str =~ s/\\{2}/\\/g;
+        $str =~ s/\\(["'])/$1/g; # '"$
         return $str;
 }
 

t/data_dpath_path_unescape.t

@@ -0,0 +1,41 @@
+#! /usr/bin/env perl
+
+use strict;
+use warnings FATAL => 'all';
+use utf8;
+
+use Test::More tests => 6;
+
+use_ok('Data::DPath::Path');
+
+my $FIXTURES = [
+    {
+        name   => 'double quote',
+        string => '\\"',
+        result => '"',
+    },
+    {
+        name   => 'backslash',
+        string => '\\\\',
+        result => '\\',
+    },
+    {
+        name   => 'backslash with double quote',
+        string => '\\\\\\"',
+        result => '\\"',
+    },
+    {
+        name   => 'two backslash with double quote',
+        string => '\\\\\\\\\\"',
+        result => '\\\\"',
+    },
+    {
+        name   => 'example from documentations',
+        string => '\"EE\E5\\\\\\"',
+        result => '"EE\E5\"',
+    },
+];
+
+foreach my $test (@$FIXTURES) {
+    is(Data::DPath::Path::unescape($test->{'string'}), $test->{'result'}, $test->{'name'});
+}

t/path.t

@@ -86,7 +86,7 @@ is_deeply(\@parts, [
                     '"EE E2"',
                     '"EE E3"[1]',
                     '"EE E4"',
-                    '"EE\E5\\\\"',
+                    '"EE\E5\\"',
                     '"FFF"',
                     'GGG[foo == bar]',
                     '*',
@@ -181,7 +181,7 @@ is_deeply(\@parts, [
                     '"EE E2"',
                     '"EE E3"[1]',
                     '"EE E4"',
-                    '"EE\E5\\\\"',
+                    '"EE\E5\\"',
                     '"FFF"',
                     'GGG[foo == bar]',
                     '*',