summaryrefslogtreecommitdiffstats
path: root/news_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'news_wizard')
-rwxr-xr-xnews_wizard/Inn.pm8
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
}