# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1220839718 -14400
# Node ID 9eb5096956518deaa4708d95e4d02c64e46b78d1
# Parent  8813a78ab8b546427514590f1b3c46e5510d8aa8
Tests: drop our own CRLF constant, use Socket's one instead.

diff --git a/_common.pm b/_common.pm
--- a/_common.pm
+++ b/_common.pm
@@ -12,15 +12,14 @@ use strict;
 use base qw/ Exporter /;
 
 our @EXPORT = qw/ start_nginx smtp_connect smtp_send smtp_read smtp_check
-	smtp_ok log_in log_out CRLF http /;
+	smtp_ok log_in log_out http /;
 
 ###############################################################################
 
 use Test::More;
 use File::Temp qw/ tempdir /;
 use IO::Socket;
-
-use constant CRLF => "\x0D\x0A";
+use Socket qw/ CRLF /;
 
 our $testdir;
 our $s;
diff --git a/smtp.t b/smtp.t
--- a/smtp.t
+++ b/smtp.t
@@ -12,6 +12,7 @@ use strict;
 use Test::More tests => 28;
 
 use MIME::Base64;
+use Socket qw/ CRLF /;
 
 use _common;