Debug all received lines and avoid pushing FIN lines onto the results

tsibley · Mar 7, 2013 · eed3a99 · eed3a99
1 parent e51000f
commit eed3a99
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Soundbridge.pm b/lib/Soundbridge.pm
@@ -72,12 +72,12 @@ sub rcp ($$;$) {
     while ($_ = $self->socket->getline) {
         s/^\Q$pre\E:\s*//;
         s/[\r\n]//g;
-        $code->($_) if $code;
-        push @result, $_
-            if not /^ListResult/ and /\S/;
         $self->debug("<-- $_");
+        $code->($_) if $code;
         warn "$cmd: $_\n" if /Error|Failed|UnknownCommand/ and $self->log_level;
         last if /(?:^ListResultEnd|^OK|^TransactionComplete|Error|Failed|UnknownCommand)/;
+        push @result, $_
+            if not /^ListResult/ and /\S/;
     }
     return wantarray ? @result : \@result;
 }