diff options
| -rw-r--r-- | lib/Memoize/t/tie_sdbm.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Memoize/t/tie_sdbm.t b/lib/Memoize/t/tie_sdbm.t index 07a7a80bce..48895355c6 100644 --- a/lib/Memoize/t/tie_sdbm.t +++ b/lib/Memoize/t/tie_sdbm.t @@ -37,8 +37,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) = @_; |