From: Joe Atzberger <atz@esilibrary.com>
Date: Wed, 30 Jun 2010 17:32:33 +0000 (+0000)
Subject: Adjust comment
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=931768a0370ce1e363891513f37c329996ac799d;p=working%2FSIPServer.git

Adjust comment
---

diff --git a/Sip.pm b/Sip.pm
index d2d2713..8d226a2 100644
--- 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 $/ = "\012";    # Internet Record Separator (lax version)
+    # 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 $!;