diff options
-rw-r--r-- | Changes | 1 | ||||
-rw-r--r-- | URPM.pm | 2 | ||||
-rw-r--r-- | URPM/Build.pm | 2 |
3 files changed, 3 insertions, 2 deletions
@@ -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 @@ -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; |