This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip lib/Memoize/t/tie_ndbm.t if $TMP is not writable.
authorSteve Peters <steve@fisharerojo.org>
Wed, 5 Jul 2006 15:40:05 +0000 (15:40 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 5 Jul 2006 15:40:05 +0000 (15:40 +0000)
p4raw-id: //depot/perl@28485

lib/Memoize/t/tie_ndbm.t

index a328bc0..e9b0379 100644 (file)
@@ -26,6 +26,11 @@ if ($@) {
   exit 0;
 }
 
   exit 0;
 }
 
+if (! -w $ENV{TMP}) {
+  print "1..0\n";
+  exit 0;
+}
+
 print "1..4\n";
 
 $file = "md$$";
 print "1..4\n";
 
 $file = "md$$";