X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FStem%2FSockMsg.pm;h=2df2f3ba9585f43b56f2e42c271cb5c113c957f8;hb=bd113ec41c91797a1b0f1db80fd720f883afe97e;hp=2accf18ef06615219ce44f17e9d3c7293b2e0463;hpb=c7450f9c4036f41ea7fff5863d02779db52e4855;p=urisagit%2FStem.git

diff --git a/lib/Stem/SockMsg.pm b/lib/Stem/SockMsg.pm
index 2accf18..2df2f3b 100644
--- a/lib/Stem/SockMsg.pm
+++ b/lib/Stem/SockMsg.pm
@@ -159,6 +159,8 @@ INFO
 	}
 	elsif ( $self->{'connect_now'} ) {
 
+#print "NOW\n" ;
+
 		$self->connect() ;
 	}
 
@@ -235,6 +237,8 @@ INFO
 
 	TraceStatus "\n$info" ;
 
+#print "\n$info" ;
+
 	if ( my $log_name = $self->{ 'log_name' } ) {
 
 #print "MSG LOG\n" ;
@@ -264,6 +268,7 @@ sub triggered_cell {
 	my( $self ) = @_ ;
 
 #print "SockMsg triggered\n" ;
+	return if $self->{'connected'} ;
 	return if $self->{'server'} ;
 
 #	return "SockMsg: can't connect a server socket" if $self->{'server'} ;