[libdatetime-timezone-perl] 01/07: Fix warnings on < 5.8.9
gregor herrmann
gregoa at debian.org
Wed Apr 15 19:03:25 UTC 2015
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to annotated tag v1.78
in repository libdatetime-timezone-perl.
commit 14c0c6cf1fff60d0c87423fa5e550e63ae612a89
Author: Peter Rabbitson <ribasushi at cpan.org>
Date: Wed Nov 5 12:20:59 2014 +0100
Fix warnings on < 5.8.9
Explicitly assigning undef to a %SIG handler is not supported on < 5.8.9. This results in warnings, and leads among other things to a failure in the DBIC test suite.
A plain local() call is sufficient to "unset" the handler on all perls.
---
lib/DateTime/TimeZone.pm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/DateTime/TimeZone.pm b/lib/DateTime/TimeZone.pm
index f2d7208..da4246a 100644
--- a/lib/DateTime/TimeZone.pm
+++ b/lib/DateTime/TimeZone.pm
@@ -76,7 +76,7 @@ sub new {
my $e;
try {
- local $SIG{__DIE__} = undef;
+ local $SIG{__DIE__};
require_module($real_class);
}
catch {
@@ -402,7 +402,7 @@ sub is_valid_name {
my $name = shift;
my $tz = try {
- local $SIG{__DIE__} = undef;
+ local $SIG{__DIE__};
$class->new( name => $name );
};
@@ -441,7 +441,7 @@ sub STORABLE_thaw {
sub offset_as_seconds {
my $offset = shift;
$offset = shift if try {
- local $SIG{__DIE__} = undef;
+ local $SIG{__DIE__};
$offset->isa('DateTime::TimeZone');
};
@@ -476,7 +476,7 @@ sub offset_as_seconds {
sub offset_as_string {
my $offset = shift;
$offset = shift if try {
- local $SIG{__DIE__} = undef;
+ local $SIG{__DIE__};
$offset->isa('DateTime::TimeZone');
};
--
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