Author: timbo
Date: Tue Nov 24 05:31:36 2009
New Revision: 13593
Modified:
dbi/trunk/dbixs_rev.h
dbi/trunk/t/85gofer.t
Log:
Don't try to run gofer ssh tests if sshd not running.
Modified: dbi/trunk/dbixs_rev.h
==============================================================================
--- dbi/trunk/dbixs_rev.h (original)
+++ dbi/trunk/dbixs_rev.h Tue Nov 24 05:31:36 2009
@@ -1,3 +1,3 @@
-/* Tue Nov 24 12:53:00 2009 */
-/* Code modified since last checkin */
+/* Tue Nov 24 13:22:17 2009 */
+/* Mixed revision working copy (13590:13592) */
#define DBIXS_REVISION 13590
Modified: dbi/trunk/t/85gofer.t
==============================================================================
--- dbi/trunk/t/85gofer.t (original)
+++ dbi/trunk/t/85gofer.t Tue Nov 24 05:31:36 2009
@@ -64,7 +64,9 @@
my %durations;
my $getcwd = getcwd();
my $username = eval { getpwuid($>) } || ''; # fails on windows
-my $can_ssh = ($username && $username eq 'timbo' && -d '.svn');
+my $can_ssh = ($username && $username eq 'timbo' && -d '.svn'
+ && system("sh -c 'echo > /dev/tcp/localhost/22' 2>/dev/null")==0
+);
my $perl = "$^X -Mblib=$getcwd/blib"; # ensure sameperl and our blib (note
two spaces)
my %trials = (
