[libdatetime-timezone-perl] 03/09: Escape curly braces in regexes

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag v1.82
in repository libdatetime-timezone-perl.

commit 42d467cf481a53c3f20e5397d78d39abf69c01ea
Author: Dave Rolsky <autarch at urth.org>
Date:   Sat Nov 22 15:55:33 2014 -0600

    Escape curly braces in regexes
---
 tools/parse_olson | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/parse_olson b/tools/parse_olson
index 99ff0f1..bb31961 100755
--- a/tools/parse_olson
+++ b/tools/parse_olson
@@ -189,8 +189,8 @@ sub parse_file {
 
         my $spans = serialize_spans( zone_as_spans($zone) );
 
-        $spans =~ s/-inf/DateTime::TimeZone::NEG_INFINITY/gi;
         $spans =~ s/inf/DateTime::TimeZone::INFINITY/gi;
+        $spans =~ s/-inf/DateTime::TimeZone::NEG_INFINITY/gi;
 
         $spans =~ s/('(?:start|end)_date'\s+=>\s+)'(\d+)'/$1$2/g;
 
@@ -411,11 +411,11 @@ EOF
     # This is cleaner than making the above a double-quoted string
     $generator =~ s/!RULES/Dumper \@rules/eg;
     $generator =~ s/!LAST_OBSERVANCE/Dumper $last_observance/eg;
-    $generator =~ s/\$VAR1->{'local_start_datetime'}{'tz'}/bless( {
+    $generator =~ s/\$VAR1->\{'local_start_datetime'\}\{'tz'\}/bless( {
       'name' => 'floating',
       'offset' => 0
     }, 'DateTime::TimeZone::Floating' )/;
-    $generator =~ s/\$VAR1->{'utc_start_datetime'}{'tz'}/bless( {
+    $generator =~ s/\$VAR1->\{'utc_start_datetime'\}\{'tz'\}/bless( {
       'name' => 'floating',
       'offset' => 0
     }, 'DateTime::TimeZone::Floating' )/;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdatetime-timezone-perl.git