diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-03-23 11:44:39 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-03-23 11:44:39 +0000 |
| commit | f1b3e509455163b0f3362e460d201d04593a8388 (patch) | |
| tree | ed5833d16c4142a45fb20ff8b8227aeafefbea78 /perllib/FixMyStreet/TestMech.pm | |
| parent | 4210219bed15cbd76c9e351db160f1d0188f78f8 (diff) | |
| parent | b33eb7d3bd02ece9ff70a215290a233f6e480378 (diff) | |
Merge branch 'perl5.22-snapshot-update'
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index 9d836ca4d..f3ee7787b 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -234,8 +234,8 @@ sub get_first_email { my $mech = shift; my $email = shift or do { fail 'No email retrieved'; return }; my $email_as_string = $email->as_string; - ok $email_as_string =~ s{\s+Date:\s+\S.*?$}{}xmsg, "Found and stripped out date"; - ok $email_as_string =~ s{\s+Message-ID:\s+\S.*?$}{}xmsg, "Found and stripped out message ID (contains epoch)"; + ok $email_as_string =~ s{^Date:\s+\S.*?\r?\n}{}xmsg, "Found and stripped out date"; + ok $email_as_string =~ s{^Message-ID:\s+\S.*?\r?\n}{}xmsg, "Found and stripped out message ID (contains epoch)"; return $email_as_string; } |