MV_BAD_LOCK — work around a problem in systems with broken locking mechanism
The variable allows systems with broken locking mechanism to still work
properly.
If the variable is set, it makes sure the PIDFile lock is
not destroyed when the lock file is read.
interchange -stop will then work properly.
Interchange 5.7.0:
Source: lib/Vend/Server.pm
Line 1665 (context shows lines 1655-1669 in server_start_message():1656)
sub server_start_message {
my ($fmt, $reverse) = @_;
$fmt = 'START server (%s) (%s)' unless $fmt;
my @types;
push (@types, 'INET') if $Global::Inet_Mode;
push (@types, 'UNIX') if $Global::Unix_Mode;
push (@types, 'SOAP') if $Global::SOAP;
push (@types, 'mod_perl') if $Global::mod_perl;
my $server_type = join(" and ", @types);
my $pid = ( $Global::PreFork || $Global::Variable->{MV_BAD_LOCK} )
? $$
: read_pidfile();
my @args = $reverse ? ($server_type, $pid) : ($pid, $server_type);
return ::errmsg ($fmt , @args );