perl_checker cleanups

1 files changed, 4 insertions, 4 deletions

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 4aef115a..e10c8d46 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -452,7 +452,7 @@ sub callback_choices {
     }
     my $callback = sub { interactive_msg(N("More information on package..."), get_info($_[0]), scroll => 1) };
     $choices = [ sort { $a->name cmp $b->name } @$choices ];
-    my @choices = interactive_list_(N("Please choose"), scalar(@$choices)==1 ?
+    my @choices = interactive_list_(N("Please choose"), scalar(@$choices) == 1 ? 
     N("The following package is needed:") : N("One of the following packages is needed:"),
                                     [ map { urpm_name($_) } @$choices ], $callback);
     $choices->[$choices[0]];
@@ -570,11 +570,11 @@ sub toggle_nodes {
                 } @cant;
                 my $count = @reasons;
                 interactive_msg(
-                    $count==1 ?
+                    $count == 1 ? 
                     N("One package cannot be installed")
 		    : N("Some packages can't be installed"),
-		    $count==1 ?
-                    N("Sorry, the following package cannot be selected:\n\n%s",join("\n", @reasons))
+		    $count == 1 ? 
+                    N("Sorry, the following package cannot be selected:\n\n%s", join("\n", @reasons))
 		    : N("Sorry, the following packages can't be selected:\n\n%s", join("\n", @reasons)),
                     scroll => 1,
                 );