X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F010_basics%2F020-global-destruction-helper.pl;h=a690d4df95cd004a7a841ee115af05033adf2cd2;hp=7c30edd5565dbc230859ca3295a7c8a428f57977;hb=70425827d676b2b4130f5e78689bf017fe4c4609;hpb=6475f69defb20a02b6559bddf870a0821f28ac20

diff --git a/t/010_basics/020-global-destruction-helper.pl b/t/010_basics/020-global-destruction-helper.pl
index 7c30edd..a690d4d 100644
--- a/t/010_basics/020-global-destruction-helper.pl
+++ b/t/010_basics/020-global-destruction-helper.pl
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-
+no warnings 'once'; # work around 5.6.2
 
 {
     package Foo;
@@ -12,7 +12,7 @@ use warnings;
         my $self = shift;
         my ($igd) = @_;
 
-        print $igd;
+        print $igd || 0, "\n";
     }
 }
 
@@ -24,7 +24,7 @@ use warnings;
         my $self = shift;
         my ($igd) = @_;
 
-        print $igd;
+        print $igd || 0, "\n";
     }
 
     __PACKAGE__->meta->make_immutable;