Make Configure work again after eliminating files.

require 5.000;

use strict;

use POSIX qw(:errno_h);

#

# see PROBLEMS for instructions on what sort of things to do when 

	$cflags.=" -DRMD160_ASM";

	}

my $n=&file_new($Makefile);

open(IN,'<Makefile.org') || die "unable to read $Makefile:$!\n";

open(OUT,">".$n) || die "unable to read $n:$!\n";

open(IN,'<Makefile.org') || die "unable to read Makefile.org:$!\n";

open(OUT,">$Makefile") || die "unable to create $Makefile:$!\n";

while (<IN>)

	{

	chop;

	}

close(IN);

close(OUT);

&Rename($Makefile,&file_old($Makefile));

&Rename($n,$Makefile);

print "CC            =$cc\n";

print "CFLAG         =$cflags\n";

print "EX_LIBS       =$lflags\n";

	}

((my $in=$bn) =~ s/\.([^.]+)/.$postfix/);

$n=&file_new($bn);

my $n=&file_new($bn);

open(IN,"<".$in) || die "unable to read $bn:$!\n";

open(OUT,">$n") || die "unable to read $n:$!\n";

while (<IN>)

	my($from,$to)=@_;

	unlink($to);

	rename($from,$to) || die "unable to rename $from to $to:$!\n";

	if(!rename($from,$to))

	    {

	    POSIX::errno() == POSIX::ENOENT || die "unable to rename $from to $to:$!\n";

	    }

	}

sub file_new { local($a)=@_; $a =~ s/(\.[^.]+$|$)/.new/; $a; }