Commit 9c437e2f authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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

parent 2b9a8ca1

test/cms-test.pl

+3 −1
Original line number Diff line number Diff line
@@ -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 );