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)

---
 Changes       | 1 +
 URPM.pm       | 2 +-
 URPM/Build.pm | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 0dd3c40..9c192b3 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,5 @@
 - Build with the flags used to build perl itsefl
+- Make it work with no feature qw(indirect) (aka perl7)
 
 Version 5.122 - 3 June 2020
 
diff --git a/URPM.pm b/URPM.pm
index 51ba47a..d9f86f3 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -293,7 +293,7 @@ URPM - Manipulate RPM files and headers
     });
 
     # loading and parsing a synthesis file
-    my $urpm = new URPM;
+    my $urpm = URPM->new;
     $urpm->parse_synthesis("synthesis.sample.cz");
     $urpm->traverse(sub {
 	# retrieve all packages from the dependency list
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