Changeset 24486 for gs3-extensions/solr/trunk/src/perllib

Timestamp:

2011-08-26T00:29:24+12:00 (12 years ago)

Author:

davidb

Message:

Tidy up (pass 2)

File:

• gs3-extensions/solr/trunk/src/perllib/solrserver.pm (modified) (3 diffs)

gs3-extensions/solr/trunk/src/perllib/solrserver.pm

@@ -257 +257 @@
     my $server_status = "unknown";
 
-    my $server_already_running = $self->server_running();
-
-    if ($server_already_running) {
+    if ($self->server_running()) {
     $server_status = "already-running";
     }
@@ -271 +269 @@
         # "ready and listening"
     
-##      print STDERR "**** $line";
-        
-        # skip annoying "not listening" message
-        next if ($line =~ m/WARN:\s*Not listening on monitor port/);
-
         if (($line =~ m/^(WARN|ERROR|SEVERE):/)
         || ($line =~ m/^[0-9 :-]*(WARN|ERROR|SEVERE)::/)) {
@@ -329 +322 @@
 #       }
 
-
         # skip info lines
         next if ($line =~ m/^INFO:/);