| Subject: | uninitialized variable warnings |
The module generates warnings from some matches. I believe the following patch fixes the problem:
--- Class/DBI/Plugin/Pager.pm Sat Jan 15 01:10:18 2005
+++ /home/dhoworth/progs/modules/Class/DBI/Plugin/Pager.pm Wed Feb 23 10:35:40 2005
@@ -198,9 +198,9 @@
{
$where = shift if ref $_[0]; # SQL::Abstract accepts a hashref or an arrayref
$abstract_attr = shift if ref $_[0] eq 'HASH';
- $order_by = shift unless $_[0] =~ /^\d+$/;
- $per_page = shift if $_[0] =~ /^\d+$/;
- $page = shift if $_[0] =~ /^\d+$/;
+ $order_by = shift unless $_[0] and $_[0] =~ /^\d+$/;
+ $per_page = shift if $_[0] and $_[0] =~ /^\d+$/;
+ $page = shift if $_[0] and $_[0] =~ /^\d+$/;
$syntax = shift;
}
else
Cheers, Dave