Lines Matching refs:DBDir
97 $DBDir = shift(@ARGV) unless ($ARGV[0] =~ /^-/);
118 if (!$DBDir) {
272 dbmopen(%FTYPE, "$DBDir/FTYPE", 0664) ||
273 die"Cannot open dbm db $DBDir/FTYPE\n";
275 dbmopen(%MODE, "$DBDir/MODE", 0664) ||
276 die"Cannot open dbm db $DBDir/MODE\n";
278 dbmopen(%PKGS, "$DBDir/PKGS", 0664) ||
279 die"Cannot open dbm db $DBDir/PKGS\n";
281 dbmopen(%ABSLINK, "$DBDir/ABSLINK", 0664) ||
282 die"Cannot open dbm db $DBDir/ABSLINK \n";
284 dbmopen(%PKGNAMES, "$DBDir/PKGNAMES", 0644) ||
285 die"Cannot open dbm db $DBDir/PKGNAMES\n";