[libdatetime-timezone-perl] 07/13: Allow Etc/GMT+XX modules to be used

[gregor herrmann]

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

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

commit 62c4a3089c192eb7fffb3247841659e33b3b5b8c
Author: Alfie John <alfiej at fastmail.fm>
Date:   Mon Sep 1 00:05:13 2014 +0000

    Allow Etc/GMT+XX modules to be used
---
 lib/DateTime/TimeZone.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/DateTime/TimeZone.pm b/lib/DateTime/TimeZone.pm
index 748aba2..b7339d1 100644
--- a/lib/DateTime/TimeZone.pm
+++ b/lib/DateTime/TimeZone.pm
@@ -58,9 +58,11 @@ sub new {
         return DateTime::TimeZone::OffsetOnly->new( offset => $p{name} );
     }
 
-    my $subclass = $p{name};
-    $subclass =~ s/-/_/g;
-    $subclass =~ s{/}{::}g;
+    my $subclass =  $p{name};
+    $subclass    =~ s{/}{::}g;
+    $subclass    =~ s/-(\d)/_Minus$1/;
+    $subclass    =~ s/\+/_Plus/;
+    $subclass    =~ s/-/_/g;
     my $real_class = "DateTime::TimeZone::$subclass";
 
     die "The timezone '$p{name}' in an invalid name.\n"

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