| Subject: | Warning messages |
Hi Ikebe,
I'm attaching a patch which has reduced the warnings I receive in my Apache error log. I hope that you will apply this patch as well as the patch which fixes errors with Pg 7.3 as I have to force Class::DBI::Pg to install because the tests fail.
Thanks,
William
--- Pg.pm.orig Fri Apr 9 16:40:40 2004
+++ Pg.pm Fri Apr 9 16:39:55 2004
@@ -48,7 +48,10 @@
$sth->execute($table);
my($nextval_str) = $sth->fetchrow_array;
$sth->finish;
- my($sequence) = $nextval_str =~ m/^nextval\('"?([^"']+)"?'::text\)/;
+ my $sequence;
+ if (defined $nextval_str && $nextval_str) {
+ ($sequence) = $nextval_str =~ m/^nextval\('"?([^"']+)"?'::text\)/;
+ }
my(@cols, $primary);
foreach my $col(@$columns) {