don't call defined on arrays
authorTroy Sankey <sankeytms@gmail.com>
Sun, 9 Feb 2014 10:31:04 +0000 (02:31 -0800)
committerTroy Sankey <sankeytms@gmail.com>
Sun, 9 Feb 2014 10:31:04 +0000 (02:31 -0800)
index.pl

index 62ad712..631db7a 100755 (executable)
--- a/index.pl
+++ b/index.pl
@@ -189,7 +189,7 @@ sub get_next_party {
   $sth->execute()
     or die "Couldn't execute statement: " . $dbh->errstr;
   my @row = $sth->fetchrow_array(); # should just be one row
-  if (!defined @row) {
+  if (!@row) {
     return undef;
   }
   $row[1] = DateTime->from_epoch(epoch => $row[1], time_zone => 'local');
@@ -212,7 +212,7 @@ sub get_previous_parties {
   my $finished = 0;
   while (!$finished) {
     my @row = $sth->fetchrow_array();
-    if (defined @row) {
+    if (@row) {
       push (@parties, DateTime->from_epoch(epoch => $row[1], time_zone => 'local'));
     } else {
       $finished = 1;
@@ -235,7 +235,7 @@ sub get_party {
   $sth->execute("$date 00:00:00")
     or die "Couldn't execute statement: " . $dbh->errstr;
   my @row = $sth->fetchrow_array(); # should just be one row
-  if (!defined @row) {
+  if (!@row) {
     return undef;
   }
   $row[1] = DateTime->from_epoch(epoch => $row[1], time_zone => 'local');
@@ -552,7 +552,7 @@ sub print_body_keylists {
       print "<p>Keylist for upcoming party:</p>";
       print_keylist_links("keylist");
     }
-    if (defined @previous_parties) {
+    if (@previous_parties) {
       print "<p>keylists from previous parties:</p>";
     }
     print_tail();