From 95ee7dddc8054d94d25a7064e410927648f8dd5b Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 21 Sep 2014 13:42:35 -0400 Subject: bail out earlier if Package::Anon isn't supported --- t/bare-anon-basic.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 't/bare-anon-basic.t') diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t index 5bdb523..c3cc981 100644 --- a/t/bare-anon-basic.t +++ b/t/bare-anon-basic.t @@ -6,13 +6,16 @@ use Test::More; use Test::Fatal; use Package::Stash; -use Symbol; -plan skip_all => "Anonymous stashes in PP need at least perl 5.14" - if $] < 5.014 - && $Package::Stash::IMPLEMENTATION eq 'PP'; +BEGIN { + plan skip_all => "Anonymous stashes in PP need at least perl 5.14" + if $] < 5.014 + && $Package::Stash::IMPLEMENTATION eq 'PP'; + + plan skip_all => "This isn't really going to work yet, probably"; +} -plan skip_all => "This isn't really going to work yet, probably"; +use Symbol; my $Foo = {}; $Foo->{SOME_CONSTANT} = \1; -- cgit v1.2.3-54-g00ecf