# -*- perl -*-
-# $Id: errorlib.in,v 1.30 2003/06/10 00:59:36 cjwatson Exp $
+# $Id: errorlib.in,v 1.31 2003/06/10 01:18:59 cjwatson Exp $
sub F_SETLK { 6; } sub F_WRLCK{ 1; }
$flockstruct= 'sslll'; # And there ought to be something for this too.
# archived bugs but most of the backend scripts don't. For now,
# anything that is prepared to accept archived bugs should call
# getbuglocation() directly first.
- return undef unless $location eq 'db' or $location eq 'db-h';
+ return undef if defined $location and
+ ($location ne 'db' and $location ne 'db-h');
}
my $dir = getlocationpath($location);
return undef unless $dir;