diff options
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/rhrd-show | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/utils/rhrd-show b/utils/rhrd-show index a9e0abc..daa3060 100755 --- a/utils/rhrd-show +++ b/utils/rhrd-show @@ -123,31 +123,31 @@ sub add__check_arguments } my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::cmdline_dow($dow); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -221,31 +221,31 @@ sub edit__check_arguments my ($showid, $title, $rhythm, $dow, $starttime, $len, $type) = @_; my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::cmdline_dow($dow); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -410,7 +410,7 @@ sub multi_add my $type = shift; my ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -442,7 +442,7 @@ sub multi_edit my $type = shift; my ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless($result) { + unless(defined $result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } |