Fixed a bug in mail_to_db.pl

b1291364 · jani@hynda.mysql.fi · 1a4ac20b · b1291364
Commit b1291364 authored Dec 19, 2001 by jani@hynda.mysql.fi
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

tests/mail_to_db.pl tests/mail_to_db.pl +3 -3

No files found.
--- 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,10 +213,10 @@ 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)