[libdatetime-timezone-perl] 05/13: Silence "Use of uninitialized value in addition" warnings when "parse_olson --old" is run

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 f138c90de5ceb8e7eca8041b9091df79383ce318
Author: Alfie John <alfiej at fastmail.fm>
Date:   Mon Sep 1 00:01:28 2014 +0000

    Silence "Use of uninitialized value in addition" warnings when "parse_olson --old" is run
---
 lib/DateTime/TimeZone/OlsonDB/Observance.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/DateTime/TimeZone/OlsonDB/Observance.pm b/lib/DateTime/TimeZone/OlsonDB/Observance.pm
index 1afe4c7..9fa807a 100644
--- a/lib/DateTime/TimeZone/OlsonDB/Observance.pm
+++ b/lib/DateTime/TimeZone/OlsonDB/Observance.pm
@@ -57,8 +57,8 @@ sub new {
     return $self;
 }
 
-sub offset_from_utc { $_[0]->{offset_from_utc} }
-sub offset_from_std { $_[0]->{offset_from_std} }
+sub offset_from_utc { $_[0]->{offset_from_utc} || 0 }
+sub offset_from_std { $_[0]->{offset_from_std} || 0 }
 sub total_offset    { $_[0]->offset_from_utc + $_[0]->offset_from_std }
 
 sub rules      { @{ $_[0]->{rules} } }

-- 
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