skip a test that requires Cwd under miniperl

1 files changed, 12 insertions, 8 deletions

diff --git a/t/comp/require.t b/t/comp/require.t
index 4200004113..233068036c 100644
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -261,15 +261,19 @@ EOT
 
 # Test "require func()" with abs path when there is no .pmc file.
 ++$::i;
-require Cwd;
-require File::Spec::Functions;
-eval {
- CORE::require(File::Spec::Functions::catfile(Cwd::getcwd(),"bleah.pm"));
-};
-if ($@ =~ /^This is an expected error/) {
-    print "ok $i\n";
+if (defined &DynaLoader::boot_DynaLoader) {
+    require Cwd;
+    require File::Spec::Functions;
+    eval {
+     CORE::require(File::Spec::Functions::catfile(Cwd::getcwd(),"bleah.pm"));
+    };
+    if ($@ =~ /^This is an expected error/) {
+	print "ok $i\n";
+    } else {
+	print "not ok $i\n";
+    }
 } else {
-    print "not ok $i\n";
+    print "ok $i # SKIP Cwd may not be available in miniperl\n";
 }