diff options
Diffstat (limited to 'news_wizard')
| -rwxr-xr-x | news_wizard/Inn.pm | 8 |
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 } |