From 316a4c4b02869cef6dd06804e1676d77fb35a979 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 26 Jan 2015 19:13:42 -0500 Subject: [PATCH] miniperl cannot IO::File --- t/op/gv.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/op/gv.t b/t/op/gv.t index 97d0f3f..e695923 100644 --- a/t/op/gv.t +++ b/t/op/gv.t @@ -1066,6 +1066,9 @@ is runperl(prog => "Undefined subroutine &main::foo called at -e line 1.\n", "gv_try_downgrade does not anonymise CVs referenced elsewhere"; +SKIP: { + skip_if_miniperl("no dynamic loading on miniperl, so can't load IO::File", 4); + package glob_constant_test { sub foo { 42 } use constant bar => *foo; @@ -1083,6 +1086,8 @@ package glob_constant_test { ::is "$@", "", 'no error from eval { glob_constant->method() }'; } +} + { my $free2; local $SIG{__WARN__} = sub { ++$free2 if shift =~ /Attempt to free/ }; -- 1.8.3.1