[svn:DBD-Pg] r11376 - DBD-Pg/trunk/t

Author: turnstep
Date: Tue Jun  3 07:46:57 2008
New Revision: 11376

Modified:
   DBD-Pg/trunk/t/dbdpg_test_setup.pl

Log:
Test for valid username before pushing on stack


Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl	(original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl	Tue Jun  3 07:46:57 2008
@@ -255,7 +255,7 @@
 			## Start with whoever owns this file, unless it's us
 			my @userlist = (qw/postgres postgresql pgsql/);
 			my $username = getpwuid ((stat($0))[4]);
-			unshift @userlist, $username if $username ne getpwent;
+			unshift @userlist, $username if defined $username and $username ne getpwent;
 			my %doneuser;
 			for my $user (@userlist) {
 				next if $doneuser{$user}++;