diff options
Diffstat (limited to 'rt/lib/RT/Test.pm')
| -rw-r--r-- | rt/lib/RT/Test.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/rt/lib/RT/Test.pm b/rt/lib/RT/Test.pm index 257eea5b7..69019f6fe 100644 --- a/rt/lib/RT/Test.pm +++ b/rt/lib/RT/Test.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2017 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -1733,7 +1733,9 @@ sub parse_mail { require RT::EmailParser; my $parser = RT::EmailParser->new; $parser->ParseMIMEEntityFromScalar( $mail ); - return $parser->Entity; + my $entity = $parser->Entity; + $entity->{__store_link_to_object_to_avoid_early_cleanup} = $parser; + return $entity; } sub works { |