X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=rt%2Ft%2Fmail%2Fcrypt-gnupg.t;h=cc52dd6312dfc896c8cdca7ad62f5018075378b4;hb=75162bb14b3e38d66617077843f4dfdcaf09d5c4;hp=f33fbab1c489fcc0890876e587dffe570df1f481;hpb=fc6209f398899f0211cfcedeb81a3cd65e04a941;p=freeside.git

diff --git a/rt/t/mail/crypt-gnupg.t b/rt/t/mail/crypt-gnupg.t
index f33fbab1c..cc52dd631 100644
--- 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 );