From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 20 Feb 2007 10:44:44 +0000 (+0000)
Subject: Skip test when Encode isn't built
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1481cd1a0344d3eb4d0dfa997b84545a205c3afa;p=p5sagit%2Fp5-mst-13.2.git

Skip test when Encode isn't built
(noticed by Jerry D. Hedden)

p4raw-id: //depot/perl@30370
---

diff --git a/ext/PerlIO/encoding/t/nolooping.t b/ext/PerlIO/encoding/t/nolooping.t
index f3436ad..846a248 100644
--- a/ext/PerlIO/encoding/t/nolooping.t
+++ b/ext/PerlIO/encoding/t/nolooping.t
@@ -1,5 +1,13 @@
 #!perl -w
 
+BEGIN {
+    use Config;
+    if ($Config{extensions} !~ /\bEncode\b/) {
+	print "1..0 # Skip: no Encode\n";
+	exit 0;
+    }
+}
+
 use Test::More tests => 1;
 
 BEGIN {