From 931768a0370ce1e363891513f37c329996ac799d Mon Sep 17 00:00:00 2001
From: Joe Atzberger <atz@esilibrary.com>
Date: Wed, 30 Jun 2010 17:32:33 +0000
Subject: [PATCH] Adjust comment

---
 Sip.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 $!;
-- 
2.11.0