summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-03-02 11:44:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-03-02 11:44:14 +0000
commit33c8cc184aa0d51b52887ca2a9baa8995e121c42 (patch)
tree004b0cc65de212a6b30d441ce845f2a1d3851fea
parent3229471e071f7f33020b7ea32cb286c260b6c2d6 (diff)
downloadmgaonline-33c8cc184aa0d51b52887ca2a9baa8995e121c42.tar
mgaonline-33c8cc184aa0d51b52887ca2a9baa8995e121c42.tar.gz
mgaonline-33c8cc184aa0d51b52887ca2a9baa8995e121c42.tar.bz2
mgaonline-33c8cc184aa0d51b52887ca2a9baa8995e121c42.tar.xz
mgaonline-33c8cc184aa0d51b52887ca2a9baa8995e121c42.zip
perl_checker cleanups
-rwxr-xr-xmdkupdate9
1 files changed, 4 insertions, 5 deletions
diff --git a/mdkupdate b/mdkupdate
index 25b734cd..6265634b 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -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);
}