From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 5 Jul 2006 15:40:05 +0000 (+0000)
Subject: Skip lib/Memoize/t/tie_ndbm.t if $TMP is not writable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b40f9f8cf631862db10aed9706454c7518fef19;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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$$";