From dba2f9999053aa2bbe2682bfe94ceae829f1f59c Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Wed, 4 Oct 2023 03:49:26 +0000
Subject: treewide: use PublicInbox::Lock->new

This gets rid of a few bare bless statements and helps
ensure we properly load Lock.pm before using it.
---
 lib/PublicInbox/TestCommon.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lib/PublicInbox/TestCommon.pm')

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 7d0eb2c4..32213fde 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -742,8 +742,7 @@ sub setup_public_inboxes () {
 	return @ret if -f $stamp;
 
 	require PublicInbox::Lock;
-	my $lk = bless { lock_path => "$test_home/setup.lock" },
-			'PublicInbox::Lock';
+	my $lk = PublicInbox::Lock->new("$test_home/setup.lock");
 	my $end = $lk->lock_for_scope;
 	return @ret if -f $stamp;
 
@@ -798,7 +797,7 @@ sub create_coderepo ($$;@) {
 		my $err = $!;
 		-d $dir or xbail "mkdir($dir): $err";
 	}
-	my $lk = bless { lock_path => "$dir/creat.lock" }, 'PublicInbox::Lock';
+	my $lk = PublicInbox::Lock->new("$dir/creat.lock");
 	my $scope = $lk->lock_for_scope;
 	my $tmpdir = delete $opt{tmpdir};
 	if (!-f "$dir/creat.stamp") {
@@ -830,7 +829,7 @@ sub create_inbox ($$;@) {
 		my $err = $!;
 		-d $dir or xbail "mkdir($dir): $err";
 	}
-	my $lk = bless { lock_path => "$dir/creat.lock" }, 'PublicInbox::Lock';
+	my $lk = PublicInbox::Lock->new("$dir/creat.lock");
 	$opt{inboxdir} = File::Spec->rel2abs($dir);
 	$opt{name} //= $ident;
 	my $scope = $lk->lock_for_scope;
-- 
cgit v1.2.3-24-ge0c7