From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 30 Aug 2012 23:42:30 +0000 (-0700)
Subject: utf8cache.t: Skip only the XS-dependent test
X-Git-Tag: upstream/5.20.0~5544
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4785469e43ed59eb07455c31ce1079ada2c9f91f;p=platform%2Fupstream%2Fperl.git

utf8cache.t: Skip only the XS-dependent test
---

diff --git a/t/op/utf8cache.t b/t/op/utf8cache.t
index 83ad4e8..f8698c8 100644
--- a/t/op/utf8cache.t
+++ b/t/op/utf8cache.t
@@ -5,13 +5,15 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    skip_all_without_dynamic_extension('Devel::Peek');
 }
 
 use strict;
 
 plan(tests => 2);
 
+SKIP: {
+skip_without_dynamic_extension("Devel::Peek");
+
 my $pid = open CHILD, '-|';
 die "kablam: $!\n" unless defined $pid;
 unless ($pid) {
@@ -36,6 +38,8 @@ my $utf8magic = qr{ ^ \s+ MAGIC \s = .* \n
 
 unlike($_, qr{ $utf8magic $utf8magic }x);
 
+} # SKIP
+
 # With bad caching, this code used to go quadratic and take 10s of minutes.
 # The 'test' in this case is simply that it doesn't hang.