]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blobdiff - t/lib/Test/Leaner/TestHelper.pm
Replace $] by "$]"
[perl/modules/Test-Leaner.git] / t / lib / Test / Leaner / TestHelper.pm
index fffb0012e5b99cadd006606573e30df1d1194a74..29db429aa17eaecb528fe31d9d44f48ea088ccf7 100644 (file)
@@ -7,7 +7,7 @@ my $memory_stream;
 my $buf_ref;
 
 sub capture_to_buffer {
 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;
 
 
  die "Can't call capture_to_buffer twice" if $memory_stream;