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

(cherry picked from commit 9c437e2fad)
This commit is contained in:
Andy Polyakov 2011-05-16 18:11:45 +00:00
parent 2e3d02fe1a
commit 188ab7df98

View 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 );