From be6cbea90fd60e29590bcc5038fadb94c956d4c9 Mon Sep 17 00:00:00 2001
From: ambs <ambs@cpan.org>
Date: Wed, 26 Aug 2015 15:29:19 +0100
Subject: [PATCH] Fix braces
---
speedup | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/speedup b/speedup
index 22685b0..0a513d6 100644
--- a/speedup
+++ b/speedup
@@ -12,7 +12,7 @@ my $SET_NOT_EMPTY= join( '|', qw( pcdata cdata comment)); # set the field
# depending on the version of perl use either qr or ""
print STDERR "perl version is $]\n";
-my $var= '(\$[a-z_]+(?:\[\d\])?|\$t(?:wig)?->root|\$t(?:wig)?->twig_current|\$t(?:wig)?->{\'?twig_root\'?}|\$t(?:wig)?->{\'?twig_current\'?})';
+my $var= '(\$[a-z_]+(?:\[\d\])?|\$t(?:wig)?->root|\$t(?:wig)?->twig_current|\$t(?:wig)?->\{\'?twig_root\'?\}|\$t(?:wig)?->\{\'?twig_current\'?\})';
my $set_to = '(?:undef|\$\w+|\$\w+->\{\w+\}|\$\w+->\w+|\$\w+->\w+\([^)]+\))';
my $elt = '\$(?:elt|new_elt|child|cdata|ent|_?parent|twig_current|next_sibling|first_child|prev_sibling|last_child|ref|elt->_parent)';
--
2.1.2