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

[email protected] Tue, 10 Mar 2009 16:50:29 -0700 (PDT)

Newsgroups	perl.dbd.pg.changes
Message-ID	<[email protected]>

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