From 80028325730760ee817b75eb3b5c2c67aaa089b3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Sep 2011 18:39:59 +0000
Subject: perl_checker cleanups

---
 URPM/Signature.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'URPM/Signature.pm')

diff --git a/URPM/Signature.pm b/URPM/Signature.pm
index 003af07..44cd2ef 100644
--- a/URPM/Signature.pm
+++ b/URPM/Signature.pm
@@ -30,7 +30,7 @@ sub parse_pubkeys_ {
             my $found_blank = 0;
 	    foreach (split "\n", $p->description) {
 		if ($block) {
-                    if (/^$/ and not $found_blank) {
+                    if (/^$/ && !$found_blank) {
                         # All content until now were the encapsulated pem
                         # headers...
                         $content = '';
@@ -58,7 +58,7 @@ sub parse_pubkeys_ {
 }
 
 #- obsoleted
-sub import_needed_pubkeys {
+sub import_needed_pubkeys() {
     warn "import_needed_pubkeys prototype has changed, please give a file directly\n";
     return;
 }
@@ -85,7 +85,7 @@ sub import_needed_pubkeys_from_file {
 
     #- let the caller know about what has been found.
     #- this is an error if the key is not found.
-    $o_callback and $o_callback->($kv?$kv->{id}:undef, $imported);
+    $o_callback and $o_callback->($kv ? $kv->{id} : undef, $imported);
 }
 
 1;
-- 
cgit v1.2.1