Fix a possible segv on DESTROY

[gitmo/Mouse.git] / t / 010_basics / 020-global-destruction-helper.pl

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