From 1d2d26d415b4e86f6ebdabc7f2fe965235875db5 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xssn.at>
Date: Sun, 28 Nov 2010 19:02:04 +0100
Subject: check-mail-addr.pl: fix lineendings

Signed-off-by: Florian Pritz <bluewind@xssn.at>
---
 check-mail-addr.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'check-mail-addr.pl')

diff --git a/check-mail-addr.pl b/check-mail-addr.pl
index 29f23c2..773830d 100755
--- a/check-mail-addr.pl
+++ b/check-mail-addr.pl
@@ -43,8 +43,8 @@ my $socket = IO::Socket::INET->new(
   Proto => "tcp") || die "Error: couldn't create socket.";
 
 print "<<  ".$socket->getline;
-post $socket,"EHLO ".hostfqdn()."\n";
-post $socket, "MAIL FROM:<>\n";
-post $socket, "RCPT TO:<$email>\n";
-post $socket, "QUIT\n";
+post $socket,"EHLO ".hostfqdn()."\r\n";
+post $socket, "MAIL FROM:<>\r\n";
+post $socket, "RCPT TO:<$email>\r\n";
+post $socket, "QUIT\r\n";
 
-- 
cgit v1.2.3-24-g4f1b