#!./perl
-# $Id: lock.t,v 1.0.1.2 2000/10/23 18:03:07 ram Exp ram $
+# $Id: lock.t,v 1.0.1.3 2000/10/26 17:11:27 ram Exp ram $
#
# @COPYRIGHT@
#
# $Log: lock.t,v $
+# Revision 1.0.1.3 2000/10/26 17:11:27 ram
+# patch5: just check $^O, there's no need for the whole Config
+#
# Revision 1.0.1.2 2000/10/23 18:03:07 ram
# patch4: protected calls to flock() for dos platform
#
print "1..0 # Skip: Storable was not built\n";
exit 0;
}
- if (!$Config{'d_flock'} && !$Config{'d_fcntl'} && !$Config{'d_lockf'}) {
+ if (!$Config{'d_flock'} &&
+ !$Config{'d_fcntl_can_lock'} &&
+ !$Config{'d_lockf'}) {
print "1..0 # Skip: no flock or flock emulation on this platform\n";
exit 0;
}