diff options
Diffstat (limited to 'mdkupdate')
| -rwxr-xr-x | mdkupdate | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -57,7 +57,6 @@ my $YEARS = "2002-2006"; mkdir_p($confdir) if !-d $confdir; -e '/root/.mdkupdate' and system "/bin/mv", "/root/.mdkupdate", $conffile; -my ($scheduled, $noscheduled); sub usage() { print STDERR N("mdkupdate version %s @@ -144,7 +143,7 @@ if (!$bundle) { print Dumper($bundle_info); if ($bundle_info->{status}) { my @bundles; - my ($media, $mirrors, $bundle) = ($bundle_info->{data}->{media_name}, $bundle_info->{data}->{mirrors}, $bundle_info->{data}->{bundle}); + my ($media, $mirrors, $bundle) = ($bundle_info->{data}{media_name}, $bundle_info->{data}{mirrors}, $bundle_info->{data}{bundle}); add_media($media, $_, 'hdlist.cz', '') foreach keys %$mirrors; $bundle =~ s/\.rpm$//; push(@bundles, $bundle); @@ -159,7 +158,7 @@ sub ask_pkgs { { node_state => sub { $pkgs->{$_[0]}{selected} ? 'selected' : 'unselected' }, build_tree => sub { - my ($add_node, $flat) = @_; + my ($add_node, $_flat) = @_; $add_node->($_, undef) foreach sort keys %$pkgs; }, grep_unselected => sub { grep { !$pkgs->{$_}{selected} } @_ }, @@ -257,13 +256,13 @@ sub update_pkgs { return 1; } -sub get_rpm_diff { +sub get_rpm_diff() { my $isdif = `sdiff -s $afterrpm $currentrpm`; $isdif and output_p($difflog, $isdif), return 1; return 0; } -sub new_rpm_base { +sub new_rpm_base() { -f $afterrpm and system('/bin/mv', $afterrpm, $currentrpm); } |