encoding.t not properly skipped when Encode extension not built

Message-ID: <20020328092206.18833.qmail@plover.com>

p4raw-id: //depot/perl@15578

diff --git a/lib/encoding.t b/lib/encoding.t
index aaec973..ec21c1b 100644 (file)
--- a/lib/encoding.t
+++ b/lib/encoding.t
@@ -1,4 +1,9 @@
 BEGIN {
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bEncode\b/) {
+      print "1..0 # Skip: Encode was not built\n";
+      exit 0;
+    }
     if (ord("A") == 193) {
        print "1..0 # encoding pragma does not support EBCDIC platforms\n";
        exit(0);