[libdatetime-timezone-perl] 01/07: Fix warnings on < 5.8.9

[gregor herrmann]

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