Skip lib/Memoize/t/tie_ndbm.t if $TMP is not writable.

p4raw-id: //depot/perl@28485

diff --git a/lib/Memoize/t/tie_ndbm.t b/lib/Memoize/t/tie_ndbm.t
index a328bc0..e9b0379 100644 (file)
--- a/lib/Memoize/t/tie_ndbm.t
+++ b/lib/Memoize/t/tie_ndbm.t
@@ -26,6 +26,11 @@ if ($@) {
   exit 0;
 }
 
+if (! -w $ENV{TMP}) {
+  print "1..0\n";
+  exit 0;
+}
+
 print "1..4\n";
 
 $file = "md$$";