Starting from 5.10.1, the 'undef' test is only run once

[perl/modules/re-engine-Plugin.git] / t / methods / str / undef.t

diff --git a/t/methods/str/undef.t b/t/methods/str/undef.t
index 34e24b7d0c50ba9de79fd77fc8621f2c5d81c975..fe6500a37aee7f741412fafe1d0cc5dab050a55d 100644 (file)
--- a/t/methods/str/undef.t
+++ b/t/methods/str/undef.t
@@ -1,10 +1,9 @@
 use strict;
-use Test::More tests => 3;
+use Test::More tests => ($] <= 5.010 ? 3 : 1);
 use re::engine::Plugin (
     comp => sub {
         my ($re, $str) = @_;
 
-        # Runs three times apperently.
         is($re->str, undef, 'str is undef');
 
         return;