Commit 29416b9f authored by Frédéric Buclin's avatar Frédéric Buclin

Fix bustage: Perl 5.8.x doesn't understand \g1 in regexp (must use \1 instead)

parent d292affc
...@@ -408,7 +408,7 @@ sub _handle_field_names { ...@@ -408,7 +408,7 @@ sub _handle_field_names {
# If the string was quoted to protect some special # If the string was quoted to protect some special
# characters such as commas and colons, we need # characters such as commas and colons, we need
# to remove quotes. # to remove quotes.
if ($value =~ /^(["'])(.+)\g1$/) { if ($value =~ /^(["'])(.+)\1$/) {
$value = $2; $value = $2;
$value =~ s/\\(["'])/$1/g; $value =~ s/\\(["'])/$1/g;
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment