Procházet zdrojové kódy

verify Fixed kelp's db test

Mike Smith před 11 roky
rodič
revize
91ada4c2c8
1 změnil soubory, kde provedl 7 přidání a 2 odebrání
  1. 7 2
      kelp/app.pl

+ 7 - 2
kelp/app.pl

@@ -18,8 +18,13 @@ get '/db' => sub {
         my $id = int rand 10000 + 1;
         my $id = int rand 10000 + 1;
         $sth->execute($id);
         $sth->execute($id);
         if ( my $row = $sth->fetchrow_hashref ) {
         if ( my $row = $sth->fetchrow_hashref ) {
-            push @response,
-              { id => $id, randomNumber => $row->{randomNumber} };
+            if ( $queries == 1 ) {
+                return { id => $id, randomNumber => $row->{randomNumber} };
+            }
+            else {
+                push @response,
+                  { id => $id, randomNumber => $row->{randomNumber} };
+            }
         }
         }
     }
     }
     return \@response;
     return \@response;