diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-07-05 15:40:05 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-07-05 15:40:05 +0000 |
| commit | 0b40f9f8cf631862db10aed9706454c7518fef19 (patch) | |
| tree | d9d677eec7a90ce5e1f167f2c7e864bdf169e51b /lib | |
| parent | a53dbfbbdde69373524fb559de5b51e406df6721 (diff) | |
| download | perl-0b40f9f8cf631862db10aed9706454c7518fef19.tar.gz | |
Skip lib/Memoize/t/tie_ndbm.t if $TMP is not writable.
p4raw-id: //depot/perl@28485
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Memoize/t/tie_ndbm.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Memoize/t/tie_ndbm.t b/lib/Memoize/t/tie_ndbm.t index a328bc01bb..e9b0379156 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$$"; |