Changeset 24833 for lang/perl/MENTA

Timestamp:

11/25/08 18:08:32 (4 years ago)

Author:

tokuhirom

Message:

better CRLF

Files:

• lang/perl/MENTA/trunk/lib/MENTA/Response.pm (modified) (1 diff)

lang/perl/MENTA/trunk/lib/MENTA/Response.pm

@@ -24 +24 @@
 sub as_string {
     my $self = shift;
+    my $CRLF = "\015\012";
     join(
         '',
-        $self->headers->as_string(),
-        "\r\n",
+        $self->headers->as_string($CRLF),
+        $CRLF,
         $self->content
     );