Changeset 14465 for lang/perl/Queue-Q4M/trunk/lib/Queue/Q4M.pm

Timestamp:

06/23/08 18:25:27 (5 years ago)

Author:

daisuke

Message:

make sure $index > 0

Files:

• lang/perl/Queue-Q4M/trunk/lib/Queue/Q4M.pm (modified) (1 diff)

lang/perl/Queue-Q4M/trunk/lib/Queue/Q4M.pm

@@ -153 +153 @@
     $sth->finish;
 
-    my $table = $rv > 0 ? $tables[$index - 1] : undef;
+    my $table = ($rv > 0 && $index > 0) ? $tables[$index - 1] : undef;
     my $res = Queue::Q4M::Result->new(
         rv         => $rv > 0,