From: Andy Polyakov Date: Mon, 16 May 2011 18:11:45 +0000 (+0000) Subject: cms-test.pl: make it work with not-so-latest perl. X-Git-Tag: OpenSSL_0_9_8za~70^2~1 X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=b2afc0a9dcc9036acb4840944d339b53a4a8bcac;p=oweals%2Fopenssl.git cms-test.pl: make it work with not-so-latest perl. (cherry picked from commit 9c437e2faded18b4ef6499d7041c65d6e216955b) --- diff --git a/test/cms-test.pl b/test/cms-test.pl index 9c50dff3e9..6f8792f34b 100644 --- a/test/cms-test.pl +++ b/test/cms-test.pl @@ -411,8 +411,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 );