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 {
# If the string was quoted to protect some special
# characters such as commas and colons, we need
# to remove quotes.
if ($value =~ /^(["'])(.+)\g1$/) {
if ($value =~ /^(["'])(.+)\1$/) {
$value = $2;
$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