Fixed Perl::Critic issues

ivanwills · May 12, 2012 · 5bf3c12 · 5bf3c12
1 parent 79170f5
commit 5bf3c12
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/bin/blame-line b/bin/blame-line
@@ -30,7 +30,7 @@ my %option = (
     help    => 0,
     VERSION => 0,
 );
-sub run($);
+sub run;
 
 if ( !@ARGV ) {
     pod2usage( -verbose => 1 );
@@ -41,7 +41,6 @@ exit 0;
 
 sub main {
 
-
     Getopt::Long::Configure('bundling');
     GetOptions(
         \%option,
@@ -90,11 +89,12 @@ sub main {
     return;
 }
 
-sub run($) {
+sub run {
     my ($cmd) = @_;
+    my $result;
 
     print "$cmd\n"      if $option{test} || $option{verbose};
-    my $result = `$cmd` if !$option{test};
+    $result = `$cmd` if !$option{test};
 
     return $result;
 }