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 ee5dc18a29fba22c56b776ff104629c925490703 Author: Dave Rolsky <auta...@urth.org> Date: Sun Oct 26 10:36:56 2014 -0500 Code formatting tweaks --- lib/DateTime/TimeZone.pm | 11 ++++++----- lib/DateTime/TimeZone/OlsonDB/Observance.pm | 25 +++++++++++++------------ 2 files changed, 19 insertions(+), 17 deletions(-) diff --git a/lib/DateTime/TimeZone.pm b/lib/DateTime/TimeZone.pm index b7339d1..0d2fac6 100644 --- a/lib/DateTime/TimeZone.pm +++ b/lib/DateTime/TimeZone.pm @@ -58,11 +58,12 @@ sub new { return DateTime::TimeZone::OffsetOnly->new( offset => $p{name} ); } - my $subclass = $p{name}; - $subclass =~ s{/}{::}g; - $subclass =~ s/-(\d)/_Minus$1/; - $subclass =~ s/\+/_Plus/; - $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" diff --git a/lib/DateTime/TimeZone/OlsonDB/Observance.pm b/lib/DateTime/TimeZone/OlsonDB/Observance.pm index ae2a33f..5c75acd 100644 --- a/lib/DateTime/TimeZone/OlsonDB/Observance.pm +++ b/lib/DateTime/TimeZone/OlsonDB/Observance.pm @@ -28,20 +28,21 @@ sub new { my $offset_from_utc; if ( $p{gmtoff} =~ /^([\+\-]?\d\d?)$/ ) { - # From the Olson database's etcetera file: - # - # We use POSIX-style signs in the Zone names and the output - # abbreviations, even though this is the opposite of what many people - # expect. POSIX has positive signs west of Greenwich, but many people - # expect positive signs east of Greenwich. For example, TZ='Etc/GMT+4' - # uses the abbreviation "GMT+4" and corresponds to 4 hours behind UT - # (i.e. west of Greenwich) even though many people would expect it to - # mean 4 hours ahead of UT (i.e. east of Greenwich). - - $offset_from_utc = 3600 * $1 * -1; + + # From the Olson database's etcetera file: + # + # We use POSIX-style signs in the Zone names and the output + # abbreviations, even though this is the opposite of what many people + # expect. POSIX has positive signs west of Greenwich, but many people + # expect positive signs east of Greenwich. For example, TZ='Etc/GMT+4' + # uses the abbreviation "GMT+4" and corresponds to 4 hours behind UT + # (i.e. west of Greenwich) even though many people would expect it to + # mean 4 hours ahead of UT (i.e. east of Greenwich). + $offset_from_utc = 3600 * $1 * -1; } else { - $offset_from_utc = DateTime::TimeZone::offset_as_seconds( $p{gmtoff} ); + $offset_from_utc + = DateTime::TimeZone::offset_as_seconds( $p{gmtoff} ); } my $offset_from_std -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdatetime-timezone-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits