mirror of
https://github.com/MariaDB/server.git
synced 2026-04-20 15:25:33 +02:00
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.
This commit is contained in:
parent
9f57d97fb2
commit
7a8ce13128
1 changed files with 3 additions and 3 deletions
|
|
@ -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";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue