Spec compliance on line-endings

\r not CRLF

diff --git a/Sip.pm b/Sip.pm
index 8d226a2..df75664 100644 (file)
--- a/Sip.pm
+++ b/Sip.pm
@@ -162,7 +162,7 @@ sub read_SIP_packet {
     my $len1 = 999;
 
     # local $/ = "\r";      # don't need any of these here.  use whatever the prevailing $/ is.
-    # local $/ = "\015";    # proper SPEC: (octal) \015 = (hex) x0D = (dec) 13 = (ascii) carriage return
+    local $/ = "\015";    # proper SPEC: (octal) \015 = (hex) x0D = (dec) 13 = (ascii) carriage return
     {    # adapted from http://perldoc.perl.org/5.8.8/functions/readline.html
         for ( my $tries = 1 ; $tries <= 3 ; $tries++ ) {
             undef $!;
@@ -238,9 +238,9 @@ sub write_msg {
 
 
     if ($file) {
-        print $file "$msg$CRLF";
+        print $file "$msg\r";
     } else {
-        print "$msg$CRLF";
+        print "$msg\r";
         syslog("LOG_INFO", "OUTPUT MSG: '$msg'");
     }