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

[turnstep]

Author: turnstep
Date: Tue Mar 10 16:50:29 2009
New Revision: 12601

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

Log:
Quick value check.


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 Mar 10 16:50:29 2009
@@ -123,8 +123,10 @@
                                                my $sockdir = 
"$testdir/data/socket";
                                                if (! -e $sockdir) {
                                                        mkdir $sockdir;
-                                                       if (! chown $uid, -1, 
$sockdir) {
-                                                               warn "chown of 
$sockdir failed!\n";
+                                                       if ($uid) {
+                                                               if (! chown 
$uid, -1, $sockdir) {
+                                                                       warn 
"chown of $sockdir failed!\n";
+                                                               }
                                                        }
                                                }
                                                $option = q{-o '-k socket'};