summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--urpmi.recover10
1 files changed, 5 insertions, 5 deletions
diff --git a/urpmi.recover b/urpmi.recover
index 55553810..fc8024a4 100644
--- a/urpmi.recover
+++ b/urpmi.recover
@@ -51,7 +51,7 @@ sub fmt_tid {
sub date_to_tid {
my ($date) = @_;
- require Date::Manip; Date::Manip->import();
+ require Date::Manip; Date::Manip->import;
my $d = ParseDate($date)
or die N("Invalid date or duration [%s]\n", $date);
UnixDate($d, '%s');
@@ -67,7 +67,7 @@ sub clean_repackage_dir {
or die N("Can't write to repackage directory [%s]\n", $repackage_dir);
unless ($noclean) {
print N("Cleaning up repackage directory [%s]...\n", $repackage_dir);
- my $nb = unlink grep !-d, glob("$repackage_dir/*");
+ my $nb = unlink grep { ! -d $_ } glob("$repackage_dir/*");
print N("%d files removed\n", $nb);
}
}
@@ -104,7 +104,7 @@ if ($listdate) {
my $db = URPM::DB::open() or die "Can't open RPM DB\n";
$db->traverse(sub {
my ($p) = @_;
- my $tid = $p->installtid();
+ my $tid = $p->installtid;
return if $tid < $listtime;
exists $tids{$tid} or $tids{$tid} = [];
push @{ $tids{$tid} }, scalar($p->fullname);
@@ -115,7 +115,7 @@ if ($listdate) {
}
print "Date rpms\n";
print "------------------- -------------------\n";
- for my $tid (sort { $a <=> $b } keys %tids) {
+ foreach my $tid (sort { $a <=> $b } keys %tids) {
my @p = @{$tids{$tid}};
print fmt_tid($tid), " ", shift(@p), "\n";
while (@p) {
@@ -174,7 +174,7 @@ if ($rollback) {
#- get a date from there
my %tids;
my $db = URPM::DB::open() or die "Can't open RPM DB\n";
- $db->traverse(sub { ++$tids{ $_[0]->installtid() } });
+ $db->traverse(sub { ++$tids{ $_[0]->installtid } });
my @tids = sort { $b <=> $a } keys %tids;
$tid = $tids[$rollback - 1];
} else {