Make it work with no feature qw(indirect) (aka perl7)

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;