summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xutils/rhrd-show20
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;
}