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

9c437e2f · Andy Polyakov · 2b9a8ca1 · 9c437e2f
显示空白变更内容
内联并排

Showing with 3 addition and 1 deletion

test/cms-test.pl test/cms-test.pl +3 -1

未找到文件。
--- a/test/cms-test.pl
+++ b/test/cms-test.pl
@@ -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 );