diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-12-06 15:54:44 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-12-06 15:54:44 (GMT) |
commit | 6ec59a7d595cf7724f49457a77baaba11a7535eb (patch) | |
tree | 91c38ab81f505594b33502a527b4e5d423b208b7 | |
parent | 145847cfa6b5b74576a2e4c7d5372c161837a7b6 (diff) |
fixed regression @ sanity checks for rhrd-show
-rwxr-xr-x | utils/rhrd-show | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/utils/rhrd-show b/utils/rhrd-show index 991e145..5871f39 100755 --- a/utils/rhrd-show +++ b/utils/rhrd-show @@ -129,7 +129,7 @@ sub add__check_arguments } my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -141,19 +141,19 @@ sub add__check_arguments } ($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -227,7 +227,7 @@ sub edit__check_arguments my ($showid, $title, $rhythm, $dow, $starttime, $len, $type) = @_; my ($result, $err, $hint) = RHRD::utils::dropbox_param_rhythm_ok($rhythm); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -239,19 +239,19 @@ sub edit__check_arguments } ($result, $err, $hint) = RHRD::utils::dropbox_param_starttime_ok($starttime); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_len_ok($len); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -416,7 +416,7 @@ sub multi_add my $type = shift; my ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } @@ -448,7 +448,7 @@ sub multi_edit my $type = shift; my ($result, $err, $hint) = RHRD::utils::dropbox_param_showtype_ok($type); - unless(defined $result) { + unless($result) { print STDERR $err . "\n " . $hint . "\n"; return 1; } |