diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2003-09-15 11:28:52 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-15 19:17:03 +0000 |
| commit | 30bd38ce8ffd8d44fdcbc0625913e5289c3b8acd (patch) | |
| tree | 9ecae9fccb524586ae000ea09b8a209c8b436319 /lib/Memoize/t | |
| parent | 20c514ece8742b452abf20fe2b2afe915c29bc47 (diff) | |
| download | perl-30bd38ce8ffd8d44fdcbc0625913e5289c3b8acd.tar.gz | |
Re: perl@21233 looks ok on VMS 7.3-1
Message-ID: <OF6F1E6CF4.9206F415-ON85256DA2.006A58F1-85256DA2.006B0330@factset.com>
p4raw-id: //depot/perl@21234
Diffstat (limited to 'lib/Memoize/t')
| -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) = @_; |