diff options
| author | unknown <jani@hynda.mysql.fi> | 2001-12-19 22:40:17 +0200 |
|---|---|---|
| committer | unknown <jani@hynda.mysql.fi> | 2001-12-19 22:40:17 +0200 |
| commit | 7a8ce131289d31e8541e3e4f9085aefd7257b81d (patch) | |
| tree | 6f3354bf7679e0821ddc59207b1354cd04da42b7 /tests/mail_to_db.pl | |
| parent | 9f57d97fb23d3ebd43bedbc83d24edc6d9a610dd (diff) | |
| download | mariadb-git-7a8ce131289d31e8541e3e4f9085aefd7257b81d.tar.gz | |
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.
Diffstat (limited to 'tests/mail_to_db.pl')
| -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"; |