X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=test%2Frecipes%2Ftconversion.pl;h=1a308e20b87735fad088c98ef49e729644d0efff;hp=eeb25d0e7213fb9048185f9a665caf70f013c6e8;hb=e8763c69745575e37988527e4025c3cd36081492;hpb=42e0ccdfe851c9a153d3e90746a2b8561dc9b1e3 diff --git a/test/recipes/tconversion.pl b/test/recipes/tconversion.pl index eeb25d0e72..1a308e20b8 100644 --- a/test/recipes/tconversion.pl +++ b/test/recipes/tconversion.pl @@ -1,4 +1,11 @@ -#! /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; @@ -12,11 +19,12 @@ 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{"*"}};