perl_checker fixes

1 files changed, 4 insertions, 4 deletions

diff --git a/news_wizard/Inn.pm b/news_wizard/Inn.pm
index baa3f248..c2689786 100755
--- a/news_wizard/Inn.pm
+++ b/news_wizard/Inn.pm
@@ -53,7 +53,7 @@ $o->{pages} = {
                   data => [
 		      { label => N("News Server Name:"),  val => \$o->{var}{news_server} },
 		      ],
-		      post => sub { $o->{var}{news_server} or 'error_in_news_server' },
+		      post => sub { $o->{var}{news_server} || 'error_in_news_server' },
 	          next => 'ask_news_freq'
 	      },
 	      ask_news_freq => {
@@ -100,7 +100,7 @@ needed to configure your Internet News Service:") . "\n\n" . N("To accept these
 };
 
 sub new {
-    my ($class, $conf) = @_;
+    my ($class) = @_;
     bless {
 	    o   => $o,
        }, $class;
@@ -111,7 +111,7 @@ sub check_valid_hours {
 }
 
 sub normalize_freq {
-    my	($freq) = @_;
+    my ($freq) = @_;
 
     if ($freq =~ /(\d*)/) {
 	$freq = $1;
@@ -131,7 +131,7 @@ sub get_server {
 }
 
 sub normalize_server {
-    my	($server) = @_;
+    my ($server) = @_;
     $server
 }