Commit b2afc0a9 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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

(cherry picked from commit 9c437e2f)
parent a8655eb2

test/cms-test.pl

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