From 30e2a32f1b26b93d5d9aed310cb9be6f047a27d3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 1 Feb 2012 19:19:21 +0000
Subject: perl_checker cleanups

---
 urpm/args.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'urpm/args.pm')

diff --git a/urpm/args.pm b/urpm/args.pm
index 5fe00aea..b4084ae6 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -363,10 +363,9 @@ my %options_spec = (
 
 );
 
-eval
-{
+eval {
     #require urpm::dudf;
-    $options_spec{'urpmi'}{'force-dudf'} = \$::force_dudf;
+    $options_spec{urpmi}{'force-dudf'} = \$::force_dudf;
 };
 
 
@@ -456,7 +455,7 @@ foreach my $k ("f", "z", "update", "norebuild!", "probe-rpms", '<>')
 
 foreach my $k ("no-md5sum")
 {
-    $options_spec{'urpmi'}{$k} = $options_spec{'urpmi.addmedia'}{$k} = $options_spec{'urpmi.update'}{$k};
+    $options_spec{urpmi}{$k} = $options_spec{'urpmi.addmedia'}{$k} = $options_spec{'urpmi.update'}{$k};
 }
 
 foreach my $k ("a", '<>') {
@@ -483,7 +482,7 @@ sub set_root {
 	    }
 }
 
-sub set_verbosity {
+sub set_verbosity() {
     $options{verbose} >= 0 or $urpm->{info} = sub {};
     $options{verbose} > 0 or $urpm->{log} = sub {};
 }
-- 
cgit v1.2.1