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

[turnstep]

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}++;