Commit 9eca2399 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

portability fix for some perl versions

parent 3b4fb532

fips/fipsalgtest.pl

+13 −13
Original line number Diff line number Diff line
@@ -513,29 +513,29 @@ my $mkcmd = "mkdir"; 
my $cmpall = 0;



my %fips_enabled = (

    dsa         => 1,

    dsa2        => 2,

    "dsa"        => 1,

    "dsa2"       => 2,

    "dsa-pqgver"  => 2,

    ecdsa       => 2,

    rsa         => 1,

    "ecdsa"      => 2,

    "rsa"        => 1,

    "rsa-pss0"  => 2,

    "rsa-pss62" => 1,

    sha         => 1,

    hmac        => 1,

    cmac        => 2,

    "sha"        => 1,

    "hmac"       => 1,

    "cmac"       => 2,

    "rand-aes"  => 1,

    "rand-des2" => 0,

    aes         => 1,

    "aes"        => 1,

    "aes-cfb1"  => 2,

    des3        => 1,

    "des3"       => 1,

    "des3-cfb1" => 2,

    drbg	=> 2,

    "drbg"	=> 2,

    "aes-ccm"	=> 2,

    "aes-xts"	=> 2,

    "aes-gcm"	=> 2,

    dh		=> 0,

    ecdh	=> 2,

    v2		=> 1,

    "dh"	=> 0,

    "ecdh"	=> 2,

    "v2"	=> 1,

);



foreach (@ARGV) {