diff options
| author | jani@hynda.mysql.fi <> | 2001-12-19 22:40:17 +0200 |
|---|---|---|
| committer | jani@hynda.mysql.fi <> | 2001-12-19 22:40:17 +0200 |
| commit | b1291364cbf3cd93ba1ad3b8397e30ee85321d93 (patch) | |
| tree | 6f3354bf7679e0821ddc59207b1354cd04da42b7 /tests | |
| parent | 1a4ac20bf924ff8d4f5d2b3b025f7c1a19e7498d (diff) | |
| download | mariadb-git-b1291364cbf3cd93ba1ad3b8397e30ee85321d93.tar.gz | |
Fixed a bug in mail_to_db.pl
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/mail_to_db.pl | 6 |
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"; |