Fixed a bug in mail_to_db.pl

tests/mail_to_db.pl:
  Fixed a bug in mail_to_db.pl; the program got confused by carriage
  return, if existed at the end of a line.

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/mail_to_db.pl b/tests/mail_to_db.pl
index fa2af91d9b2..aa0d3c51368 100755
--- a/tests/mail_to_db.pl
+++ b/tests/mail_to_db.pl
@@ -17,7 +17,7 @@ use DBI;
 use Getopt::Long;
 
 $| = 1;
-$VER = "2.3";
+$VER = "2.4";
 
 $opt_help          = 0;
 $opt_version       = 0;
@@ -213,12 +213,12 @@ sub process_mail_file
   %values = ();
   $type = "";
   $check = 0;
-
   while (<FILE>)
   {
     chop;
+    chop if (substr($_, -1, 1) eq "\r");
     if ($type ne "message")
-    {
+    { 
       if (/^Reply-To: (.*)/i)
       {
 	$type = "reply";