import rt 3.8.10

[freeside.git] / rt / t / mail / crypt-gnupg.t

diff --git a/rt/t/mail/crypt-gnupg.t b/rt/t/mail/crypt-gnupg.t
index f33fbab..cc52dd6 100644 (file)
--- a/rt/t/mail/crypt-gnupg.t
+++ b/rt/t/mail/crypt-gnupg.t
@@ -285,7 +285,7 @@ diag 'wrong signed/encrypted parts: wrong proto' if $ENV{'TEST_VERBOSE'};
 
 diag 'verify inline and in attachment signatures' if $ENV{'TEST_VERBOSE'};
 {
-    open my $fh, "$homedir/signed_old_style_with_attachment.eml";
+    open( my $fh, '<', "$homedir/signed_old_style_with_attachment.eml" ) or die $!;
     my $parser = new MIME::Parser;
     my $entity = $parser->parse( $fh );