Send TLSv1.2 as the record version when using TLSv1.3

[openssl.git] / test / recipes / tconversion.pl

diff --git a/test/recipes/tconversion.pl b/test/recipes/tconversion.pl
index eeb25d0e7213fb9048185f9a665caf70f013c6e8..fb0b766ce7ded1367d31a8af698f54637b45a576 100644 (file)
--- a/test/recipes/tconversion.pl
+++ b/test/recipes/tconversion.pl
@@ -1,22 +1,29 @@
-#! /usr/bin/perl
+#! /usr/bin/env perl
+# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 
 use strict;
 use warnings;
 
 use File::Compare qw/compare_text/;
 use File::Copy;
-use lib 'testlib';
 use OpenSSL::Test qw/:DEFAULT/;
 
 my %conversionforms = (
     # Default conversion forms.  Other series may be added with
     # specific test types as key.
     "*"                => [ "d", "p" ],
+    "msb"      => [ "d", "p", "msblob" ],
     );
 sub tconversion {
     my $testtype = shift;
     my $t = shift;
-    my @conversionforms = 
+    my @conversionforms =
        defined($conversionforms{$testtype}) ?
        @{$conversionforms{$testtype}} :
        @{$conversionforms{"*"}};