Skip t/15-lvalue-sub.t before perl 5.16

[perl/modules/Variable-Temp.git] / t / 15-lvalue-sub.t

diff --git a/t/15-lvalue-sub.t b/t/15-lvalue-sub.t
index baae5e4a895b8d16b6208af063def28b8c745a1f..f1ed334fb8fe3a2d841683a6e60085633e4c8102 100644 (file)
--- a/t/15-lvalue-sub.t
+++ b/t/15-lvalue-sub.t
@@ -5,7 +5,15 @@ use warnings;
 
 use Variable::Temp 'temp';
 
-use Test::More tests => 10;
+use Test::More;
+
+BEGIN {
+ if ("$]" >= 5.016) {
+  plan tests => 10;
+ } else {
+  plan skip_all => 'perl 5.16 required to have \$ proto accept sub entries';
+ }
+}
 
 {
  package Variable::Temp::TestPkg;