--- lib/memoize/t/tie_sdbm.t;1	Mon Sep 15 10:20:03 2003
+++ lib/Memoize/t/tie_sdbm.t	Mon Sep 15 15:25:14 2003
@@ -37,8 +37,14 @@
 }
 $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) = @_;