From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 1 May 2003 09:52:52 +0000 (+0000)
Subject: miniperl cannot handle layers.t.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51dc4578288f8c29eb2ac4c48011b5b854d10317;p=p5sagit%2Fp5-mst-13.2.git

miniperl cannot handle layers.t.

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

diff --git a/t/io/layers.t b/t/io/layers.t
index 8f70392..3060da5 100644
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -10,6 +10,11 @@ BEGIN {
 	print "1..0 # Skip: not perlio\n";
 	exit 0;
     }
+    eval 'use Encode';
+    if ($@ =~ /dynamic loading not available/) {
+        print "1..0 # miniperl cannot load Encode\n";
+	exit 0;
+    }
     # Makes testing easier.
     $ENV{PERLIO} = 'stdio' if exists $ENV{PERLIO} && $ENV{PERLIO} eq '';
     if (exists $ENV{PERLIO} && $ENV{PERLIO} !~ /^(stdio|perlio|mmap)$/) {