Index: Pg.pm
===================================================================
RCS file: /usr/local/cvsroot/dbdpg/dbdpg/Pg.pm,v
retrieving revision 1.18
diff -c -r1.18 Pg.pm
*** Pg.pm	26 Feb 2003 19:01:36 -0000	1.18
--- Pg.pm	21 Mar 2003 14:28:53 -0000
***************
*** 573,584 ****
                              AND    pg_index.indisprimary = 't'
  			};
  	# Expand this (returned as a string) a real array.
! 	my @pk;
! 	foreach (split( /\s+/, $dbh->selectrow_array( $pk_key_sql)))
! 	{
! 		push @pk, $_;
! 	}
! 
  	my $pk_bt = 
  		(@pk)   ? "AND    pg_attribute.attnum in (" . join ( ", ", @pk ) . ")"
  			: "";
--- 573,586 ----
                              AND    pg_index.indisprimary = 't'
  			};
  	# Expand this (returned as a string) a real array.
! 	my @pk = ();
!     my $pkeys = $dbh->selectrow_array( $pk_key_sql );
!     if (defined $pkeys) {
!     	foreach (split( /\s+/, $pkeys))
! 	    {
! 		    push @pk, $_;
! 	    }
!     }
  	my $pk_bt = 
  		(@pk)   ? "AND    pg_attribute.attnum in (" . join ( ", ", @pk ) . ")"
  			: "";