In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/316a4c4b02869cef6dd06804e1676d77fb35a979?hp=1ead70b69c083888045d5803581dd8e65b62fec2>
- Log ----------------------------------------------------------------- commit 316a4c4b02869cef6dd06804e1676d77fb35a979 Author: Jarkko Hietaniemi <[email protected]> Date: Mon Jan 26 19:13:42 2015 -0500 miniperl cannot IO::File ----------------------------------------------------------------------- Summary of changes: 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/ }; -- Perl5 Master Repository
