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=fc0c3a8ae3d5cd6ce368cbf7f6d2fb6638164548;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hpb=8845df4dd6432e3164d078ade741409061adae9f

diff --git a/t/010_basics/020-global-destruction-helper.pl b/t/010_basics/020-global-destruction-helper.pl
index fc0c3a8..a690d4d 100644
--- a/t/010_basics/020-global-destruction-helper.pl
+++ b/t/010_basics/020-global-destruction-helper.pl
@@ -1,11 +1,8 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
-
+no warnings 'once'; # work around 5.6.2
 
 {
     package Foo;
@@ -15,7 +12,7 @@ use warnings;
         my $self = shift;
         my ($igd) = @_;
 
-        print $igd;
+        print $igd || 0, "\n";
     }
 }
 
@@ -27,7 +24,7 @@ use warnings;
         my $self = shift;
         my ($igd) = @_;
 
-        print $igd;
+        print $igd || 0, "\n";
     }
 
     __PACKAGE__->meta->make_immutable;