some cleanup

1 files changed, 5 insertions, 5 deletions

diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 8f1c2fe..39546b0 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -143,7 +143,7 @@ sub show__day_entry
 
   ## TODO: handle `$show{'TYPE'}` (regular, re-run, and special)
   my ($show, $status, $errorstring) = RHRD::rddb::get_show_info($ctx, $showid);
-  if(!defined $show) {
+  unless(defined $show) {
     print "$status: $errorstring\n";
     return 1;
   }
@@ -222,7 +222,7 @@ sub show__day
         $errcnt += show__day_entry($ctx, $week, $dow, $duration, $start_short, $pvid, $showid, $title);
       } elsif ($showid >= $mshowid_min && $showid <= $showid_max) {
         my ($show, $status, $errorstring) = RHRD::rddb::get_multi_show_info($ctx, $showid);
-        unless (defined $show) {
+        unless(defined $show) {
           print "($showid)      -> $status: $errorstring\n";
           $errcnt++;
         } else {
@@ -261,7 +261,7 @@ sub parse_rdweek
     return (1, 2, 3, 4);
   }
   my ($w, undef, $hint) = RHRD::utils::cmdline_rdweek($week);
-  unless(defined($w)) {
+  unless(defined $w) {
     print "error parsing week: $week, " . $hint . " or ALL\n";
     return ();
   }
@@ -276,7 +276,7 @@ sub parse_dow
     return (1, 2, 3, 4, 5, 6, 7);
   }
   my ($d, undef, $hint) = RHRD::utils::cmdline_dow($dow);
-  unless(defined($d)) {
+  unless(defined $d) {
     print "error parsing day of week: $dow, " . $hint . " or ALL\n";
     return ();
   }
@@ -437,7 +437,7 @@ sub orphans
     if($shows{$showid} == 0) {
 
       my ($show, $status, $errorstring) = RHRD::rddb::get_show_info($ctx, $showid);
-      if(!defined $show) {
+      unless(defined $show) {
         print "$status: $errorstring\n";
       } elsif(${$show}{'TYPE'} ne 's') {
         print "$showid: " . ${$show}{'TITLE'} . "\n";