X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F020-global-destruction-helper.pl;h=a690d4df95cd004a7a841ee115af05033adf2cd2;hb=be06d3b055e9040a1d009987c83c601a6b5823fc;hp=b6a3dc0ad56fbd146a5d133e3e7fd5d02c0964fb;hpb=fc89f89b46e85a9c7d7930c57dcde75786234881;p=gitmo%2FMouse.git diff --git a/t/010_basics/020-global-destruction-helper.pl b/t/010_basics/020-global-destruction-helper.pl index b6a3dc0..a690d4d 100644 --- 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;