mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-01-18 13:44:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

cms-test.pl: make it work with not-so-latest perl.

Browse Source
This commit is contained in:
Andy Polyakov 2011-05-16 18:11:45 +00:00
parent 2b9a8ca15b
commit 9c437e2fad
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/cms-test.pl
View File

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