perl_checker cleanups

1 files changed, 2 insertions, 2 deletions

diff --git a/rpmdrake b/rpmdrake
index a21315ec..8647609d 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -78,7 +78,7 @@ sub do_search($$$$$$$) {
             if ($NVR_searches->[0]) {
                 next if !/$entry_rx/;
             } else {
-                next if first(split_fullname($_)) !~ /$entry_rx/
+                next if first(split_fullname($_)) !~ /$entry_rx/;
             }
             push @search_results, $_;
             # FIXME: should be done for all research types
@@ -767,7 +767,7 @@ sub run_treeview_dialog {
 
 
 if (my $pid = is_running('rpmdrake')) {
-    interactive_msg(N("Warning"), N("rpmdrake is already running (pid: $pid)"., yesno => [ N("Quit") ]);
+    interactive_msg(N("Warning"), N("rpmdrake is already running (pid: %s)", $pid), yesno => [ N("Quit") ]);
     exit(0);
 }