Make -DOPENSSL_FIPSSYMS work under WIN32: run perl script when

[openssl.git] / util / fipsdist.pl

diff --git a/util/fipsdist.pl b/util/fipsdist.pl
index 86ceab02abf0c8ba82a6b4465454e8c46c1c079b..20c3999c935beada5a24e010c1882b370811030d 100644 (file)
--- a/util/fipsdist.pl
+++ b/util/fipsdist.pl
@@ -21,19 +21,17 @@ foreach (split / /, $ENV{LINKDIRS} ) { $cdirs{$_} = 1 };
 
 $cdirs{perlasm} = 1;
 
-foreach (keys %cdirs) { print STDERR "CDIR: $_\n";}
-
 while (<STDIN>)
        {
        chomp;
        # Skip directories but leave top level files.
-       next unless (/^(fips\/|crypto|util|test|include)/ || (!/\// && -f $_));
+       next unless (/^(fips\/|crypto|util|test|include|ms)/ || (!/\// && -f $_));
        if (/^crypto\/([^\/]+)/)
                {
                # Skip unused directories under crypto/
                next if -d "crypto/$1" && !exists $cdirs{$1};
                # Keep assembly language dir, Makefile or certain extensions
-               if (!/\/asm\// && !/\/Makefile$/ && && !/\.(in|pl|h)$/)
+               if (!/\/asm\// && !/\/Makefile$/ && !/\.(in|pl|h)$/)
                        {
                        # If C source file must be on list.
                        next if !/(\w+\.c)$/ || !exists $tarobjs{$1};