rename FML::Lock to File::SimpleLock

1 files changed, 23 insertions, 18 deletions

diff --git a/regress/base/lock.pl b/regress/base/lock.pl
index 562a9357..e6589022 100755
--- a/regress/base/lock.pl
+++ b/regress/base/lock.pl
@@ -1,22 +1,27 @@
-if ($0 eq __FILE__) {
-    use FML::Lock;
-    my $lockobj = new FML::Lock;
+#!/usr/local/bin/perl
+#
+# $Id$
+#
 
-    my $r = $lockobj->lock( { file => '/tmp/a' });
-    if ($r) { 
-	print STDERR "lock ($$) ... ok\n";
-    }
-    else {
-	print STDERR $lockobj->error, "\n";
-    }
+use File::SimpleLock;
+my $lockobj = new File::SimpleLock;
 
-    sleep 1;
+my $r = $lockobj->lock( { file => '/tmp/a' });
+if ($r) { 
+    print STDERR "lock ($$) ... ok\n";
+}
+else {
+    print STDERR $lockobj->error, "\n";
+}
+
+sleep 1;
 
-    $r = $lockobj->unlock( { file => '/tmp/a' });
-    if ($r) { 
-	print STDERR "unlock ... ok\n";
-    }
-    else {
-	print STDERR $lockobj->error, "\n";
-    }
+$r = $lockobj->unlock( { file => '/tmp/a' });
+if ($r) { 
+    print STDERR "unlock ... ok\n";
 }
+else {
+    print STDERR $lockobj->error, "\n";
+}
+
+exit 0;