From a345b652dd852b94b36f0fe807bda7906db9cdfd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 25 Jun 2020 15:54:46 +0200
Subject: Make it work with no feature qw(indirect) (aka perl7)

---
 URPM/Build.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'URPM')

diff --git a/URPM/Build.pm b/URPM/Build.pm
index 3ac41a8..6c6350c 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -514,7 +514,7 @@ sub make_delta_rpm ($$) {
     @_ == 2 or return 0;
     -e $_[0] && -e $_[1] && -x $MAKEDELTARPM or return 0;
     my @id;
-    my $urpm = new URPM;
+    my $urpm = URPM->new;
     foreach my $i (0, 1) {
 	($id[$i]) = $urpm->parse_rpm($_[$i]);
 	defined $id[$i] or return 0;
-- 
cgit v1.2.1