From: Vincent Pit Date: Wed, 24 Aug 2011 13:57:57 +0000 (+0200) Subject: Update bundled Test::Leaner to 0.04 X-Git-Tag: v0.15~1 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=1b567146c0e93102a0e7a32cf5203a33936cea24;p=perl%2Fmodules%2FScope-Upper.git Update bundled Test::Leaner to 0.04 --- diff --git a/t/lib/Test/Leaner.pm b/t/lib/Test/Leaner.pm index c67eaed..08c8de5 100644 --- a/t/lib/Test/Leaner.pm +++ b/t/lib/Test/Leaner.pm @@ -10,11 +10,11 @@ Test::Leaner - A slimmer Test::More for when you favor performance over complete =head1 VERSION -Version 0.03 +Version 0.04 =cut -our $VERSION = '0.03'; +our $VERSION = '0.04'; =head1 SYNOPSIS @@ -82,7 +82,7 @@ my $main_process; BEGIN { $main_process = $$; - if ($] >= 5.008 and $INC{'threads.pm'}) { + if ("$]" >= 5.008 and $INC{'threads.pm'}) { my $use_ithreads = do { require Config; no warnings 'once'; @@ -495,7 +495,7 @@ my %binops = ( 'and' => 'and', '||' => 'hor', - ('//' => 'dor') x ($] >= 5.010), + ('//' => 'dor') x ("$]" >= 5.010), '&&' => 'hand', '|' => 'bor', @@ -520,7 +520,7 @@ my %binops = ( '=~' => 'like', '!~' => 'unlike', - ('~~' => 'smartmatch') x ($] >= 5.010), + ('~~' => 'smartmatch') x ("$]" >= 5.010), '+' => 'add', '-' => 'substract', @@ -886,6 +886,12 @@ Copyright 2010,2011 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. +Except for the fallback implementation of the internal C<_reftype> function, which has been taken from L and is + +Copyright 1997-2007 Graham Barr, all rights reserved. + +This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. + =cut 1; # End of Test::Leaner