Fix Header Add (#249)

This commit is contained in:
Shawn Iverson 2018-10-13 14:35:02 -04:00 committed by GitHub
parent e67f8a7c0f
commit f1da71c91c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -611,6 +611,7 @@ sub new {
}
} else {
$pos = $#{$message->{metadata}};
$pos++;
}
# Need to split the new header data into the 1st line and a list of
@ -721,6 +722,7 @@ sub new {
$oldlocation++;
} while($linenum<$totallines &&
$message->{metadata}[$oldlocation] =~ /^H\s/);
$oldlocation--;
my(@lines, $line, $firstline);
@lines = split(/\n/, $newvalue);