skip this test if we can't get an absolute path

fixes testing as root on at least solaris and openbsd

diff --git a/t/op/require_errors.t b/t/op/require_errors.t
index c60bc7d..e323948 100644 (file)
--- a/t/op/require_errors.t
+++ b/t/op/require_errors.t
@@ -89,13 +89,18 @@ SKIP: {
         qr<^\QCan't locate $mod_file:>,
         "special error message if the file exists but can't be opened";
 
-    my $file = File::Spec::Functions::catfile(Cwd::getcwd(), $mod_file);
-    eval {
-        require($file);
-    };
-    like $@,
-        qr<^\QCan't locate $file:>,
-        "...even if we use a full path";
+    SKIP: {
+        skip "Can't make the path absolute", 1
+            if !defined(Cwd::getcwd());
+
+        my $file = File::Spec::Functions::catfile(Cwd::getcwd(), $mod_file);
+        eval {
+            require($file);
+        };
+        like $@,
+            qr<^\QCan't locate $file:>,
+            "...even if we use a full path";
+    }
 
     # switch uid back (may not be implemented)
     eval { $> = $olduid; };