Tests: drop our own CRLF constant, use Socket's one instead.
diff --git a/_common.pm b/_common.pm
index 44b02f7..c4271cb 100644
--- a/_common.pm
+++ b/_common.pm
@@ -12,15 +12,14 @@
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
index 318f6f4..0f8ba88 100644
--- a/smtp.t
+++ b/smtp.t
@@ -12,6 +12,7 @@
use Test::More tests => 28;
use MIME::Base64;
+use Socket qw/ CRLF /;
use _common;
