aboutsummaryrefslogtreecommitdiffstats
path: root/URPM
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2020-06-25 15:54:46 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2020-06-25 16:07:00 +0200
commita345b652dd852b94b36f0fe807bda7906db9cdfd (patch)
tree38ec7f1757970a98c5906a243b284edc0aef722d /URPM
parent4d152a6a01df17201efa457a1477a1ea0866899d (diff)
downloadperl-URPM-a345b652dd852b94b36f0fe807bda7906db9cdfd.tar
perl-URPM-a345b652dd852b94b36f0fe807bda7906db9cdfd.tar.gz
perl-URPM-a345b652dd852b94b36f0fe807bda7906db9cdfd.tar.bz2
perl-URPM-a345b652dd852b94b36f0fe807bda7906db9cdfd.tar.xz
perl-URPM-a345b652dd852b94b36f0fe807bda7906db9cdfd.zip
Make it work with no feature qw(indirect) (aka perl7)
Diffstat (limited to 'URPM')
-rw-r--r--URPM/Build.pm2
1 files changed, 1 insertions, 1 deletions
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;