diff options
Diffstat (limited to 'urpm/sys.pm')
| -rw-r--r-- | urpm/sys.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm index c8d65313..3c53f62b 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -130,10 +130,11 @@ sub check_fs_writable () { #- returns the new rpm filename in case of success #- params : #- $deltarpm : full pathname of the deltarpm +#- $dir : directory where to put the produced rpm (optional) #- $pkg : URPM::Package object corresponding to the deltarpm (optional) our $APPLYDELTARPM = '/usr/bin/applydeltarpm'; sub apply_delta_rpm { - my ($deltarpm, $pkg) = @_; + my ($deltarpm, $dir, $pkg) = @_; -x $APPLYDELTARPM or return 0; -e $deltarpm or return 0; my $rpm; @@ -143,6 +144,7 @@ sub apply_delta_rpm { $rpm = qx(rpm -qp --qf '%{name}-%{version}-%{release}.%{arch}.rpm' '$deltarpm'); } $rpm or return 0; + $rpm = $dir . '/' . $rpm; unlink $rpm; system($APPLYDELTARPM, '-vp', $deltarpm, $rpm); -e $rpm ? $rpm : ''; |