This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct skip counts for miniperl
authorFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 15:46:35 +0000 (08:46 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:22 +0000 (13:01 -0700)
t/uni/gv.t
t/uni/stash.t

index 14d07ac..bd1fee1 100644 (file)
@@ -294,7 +294,7 @@ is($J[0], 1);
 
 {
     SKIP: {
-        skip_if_miniperl('no dynamic loading on miniperl, no Encode');
+        skip_if_miniperl('no dynamic loading on miniperl, no Encode', 2);
         # Need some sort of die or warn to get the global destruction text if the
         # bug is still present
         my $prog = <<'EOPROG';
index c54f0cc..f6e8c42 100644 (file)
@@ -72,7 +72,7 @@ plan( tests => 58 );
     }
 
     SKIP: {
-        eval { require B; 1 } or skip "no B", 29;
+        eval { require B; 1 } or skip "no B", 28;
     
         *b = \&B::svref_2object;
         my $CVf_ANON = B::CVf_ANON();