remove LF from beginning ACS which return CR/LF

diff --git a/lib/SIP2/SC.pm b/lib/SIP2/SC.pm
index a068aab..7a28d65 100644 (file)
--- a/lib/SIP2/SC.pm
+++ b/lib/SIP2/SC.pm
@@ -43,6 +43,7 @@ sub message {
        my $expect = substr($send,0,2) | 0x01;
 
        my $in = <$sock>;
+       $in =~ s/^\n// && warn "removed LF from beginning";
        $self->dump_message( "<<<< $ip ", $in );
        die "expected $expect" unless substr($in,0,2) != $expect;