X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Leaner.git;a=blobdiff_plain;f=t%2Flib%2FTest%2FLeaner%2FTestHelper.pm;fp=t%2Flib%2FTest%2FLeaner%2FTestHelper.pm;h=29db429aa17eaecb528fe31d9d44f48ea088ccf7;hp=fffb0012e5b99cadd006606573e30df1d1194a74;hb=d3e5f75f3c4d82429e8ef9dccf275e4e8e6d4260;hpb=5fd6c1574b8f8435c3555d9581ecd82d87ac4b76 diff --git a/t/lib/Test/Leaner/TestHelper.pm b/t/lib/Test/Leaner/TestHelper.pm index fffb001..29db429 100644 --- a/t/lib/Test/Leaner/TestHelper.pm +++ b/t/lib/Test/Leaner/TestHelper.pm @@ -7,7 +7,7 @@ my $memory_stream; my $buf_ref; sub capture_to_buffer { - return unless $] >= 5.008; + return unless "$]" >= 5.008; die "Can't call capture_to_buffer twice" if $memory_stream;