my $enabled = 0;
-$enabled = 1 if $ENV{CFLAG} =~ /-DOPENSSL_FIPSSYMS/;
+$enabled = 1 if $ENV{FIPSCANISTERINTERNAL} eq "y";
if ($enabled == 0 && $runasm)
{
my ($from, $to);
#rename target temporarily
-rename($target, "tmptarg.s") || die "Can't rename $target\n";
+rename($target, "tmptarg.s") || die "Can't rename $target";
#edit target
-open IN,"tmptarg.s";
-open OUT, ">$target";
+open(IN,"tmptarg.s") || die "Can't open temporary file";
+open(OUT, ">$target") || die "Can't open output file $target";
while (<IN>)
{
{
# run assembler
system @ARGS;
-print STDERR "RUNNING: @ARGS\n";
+
my $rv = $?;
-exit 0;
+
# restore target
unlink $target;
rename "tmptarg.s", $target;