cms-test.pl: make it work with not-so-latest perl.
authorAndy Polyakov <appro@openssl.org>
Mon, 16 May 2011 18:11:45 +0000 (18:11 +0000)
committerAndy Polyakov <appro@openssl.org>
Mon, 16 May 2011 18:11:45 +0000 (18:11 +0000)
test/cms-test.pl

index c938bcf00df2258645699ae5813d4448cb2d78af..dfef799be2f4fa0f485441e9e587497d1ac74689 100644 (file)
@@ -415,8 +415,10 @@ sub run_smime_tests {
 }
 
 sub cmp_files {
+    use FileHandle;
     my ( $f1, $f2 ) = @_;
-    my ( $fp1, $fp2 );
+    my $fp1 = FileHandle->new();
+    my $fp2 = FileHandle->new();
 
     my ( $rd1, $rd2 );