This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
miniperl cannot IO::File
[perl5.git] / t / op / gv.t
index 97d0f3f..e695923 100644 (file)
--- 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/ };