diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-11-19 06:34:22 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-19 19:06:48 +0000 |
| commit | f817a191324c71464703b880da5f82b20ac70b0d (patch) | |
| tree | 11b0e579db227dbb1808591ccbebb695b9ae3801 /lib/Memoize | |
| parent | 570c6a0d6baa43ddc6723315bcb20bc76fb8e44f (diff) | |
| download | perl-f817a191324c71464703b880da5f82b20ac70b0d.tar.gz | |
VMS specific cleanup and strictness for tie_sdbm.t
Message-ID: <OF8BFCD922.9F513397-ON85256B09.005AAA90@55.25.11>
p4raw-id: //depot/perl@13101
Diffstat (limited to 'lib/Memoize')
| -rw-r--r-- | lib/Memoize/t/tie_sdbm.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/Memoize/t/tie_sdbm.t b/lib/Memoize/t/tie_sdbm.t index 3da203c3b6..ddb6a86412 100644 --- a/lib/Memoize/t/tie_sdbm.t +++ b/lib/Memoize/t/tie_sdbm.t @@ -32,6 +32,8 @@ if ($@) { print "1..4\n"; +my $tmpdir; +my $file; if (eval {require File::Spec::Functions}) { File::Spec::Functions->import('tmpdir', 'catfile'); $tmpdir = tmpdir(); @@ -41,8 +43,14 @@ if (eval {require File::Spec::Functions}) { } $file = catfile($tmpdir, "md$$"); 1 while unlink $file, "$file.dir", "$file.pag"; +if ($^O eq 'VMS') { + 1 while unlink "${file}.sdbm_dir"; +} tryout('Memoize::SDBM_File', $file, 1); # Test 1..4 1 while unlink $file, "$file.dir", "$file.pag"; +if ($^O eq 'VMS') { + 1 while unlink "${file}.sdbm_dir"; +} sub tryout { my ($tiepack, $file, $testno) = @_; |