[libdatetime-timezone-perl] 09/13: Code formatting tweaks
gregor herrmann
gregoa at debian.org
Wed Apr 15 19:03:18 UTC 2015
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 <autarch at 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
More information about the Pkg-perl-cvs-commits
mailing list