Under minitest, skip tests in op/g{oto,v}.t that need PerlIO::scalar.

2 files changed, 16 insertions, 10 deletions

diff --git a/t/op/goto.t b/t/op/goto.t
index 075def609b..5fa3116e0b 100644
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -500,12 +500,15 @@ format CHOLET =
 wellington
 .
 $foo .= "(1)";
-my $cholet;
-open(CHOLET, ">", \$cholet);
-write CHOLET;
-close CHOLET;
-$foo .= "(".$cholet.")";
-is($foo, "(0)(1)(wellington\n)", "label before format decl");
+SKIP: {
+    skip_if_miniperl("no dynamic loading on miniperl, so can't load PerlIO::scalar", 1);
+    my $cholet;
+    open(CHOLET, ">", \$cholet);
+    write CHOLET;
+    close CHOLET;
+    $foo .= "(".$cholet.")";
+    is($foo, "(0)(1)(wellington\n)", "label before format decl");
+}
 
 $foo = "(A)";
 if($foo eq $foo) {
diff --git a/t/op/gv.t b/t/op/gv.t
index 7b785e9099..765be7e445 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -775,10 +775,13 @@ EOF
    'PVLV: coderef assignment when the glob is detached from the symtab'
     or diag $@;
 
-  # open should accept a PVLV as its first argument
-  $_ = *hon;
-  ok eval { open $_,'<', \my $thlext }, 'PVLV can be the first arg to open'
-   or diag $@;
+SKIP: {
+    skip_if_miniperl("no dynamic loading on miniperl, so can't load PerlIO::scalar", 1);
+    # open should accept a PVLV as its first argument
+    $_ = *hon;
+    ok eval { open $_,'<', \my $thlext }, 'PVLV can be the first arg to open'
+	or diag $@;
+  }
 
   # -t should not stringify
   $_ = *thlit; delete $::{thlit};