# NOTE: Derived from ./blib/lib/ExtUtils/Install.pm.  Changes made here will be lost.
package ExtUtils::Install;

sub uninstall {
    my($fil,$verbose,$nonono) = @_;
    die "no packlist file found: $fil" unless -f $fil;
    local *P;
    open P, $fil or Carp::croak("uninstall: Could not read packlist file $fil: $!");
    while (<P>) {
	chomp;
	print "unlink $_\n" if $verbose;
	unlink_force($_) || Carp::carp("Couldn't unlink $_") unless $nonono;
    }
    print "unlink $fil\n" if $verbose;
    unlink_force($fil) || Carp::carp("Couldn't unlink $fil") unless $nonono;
}

1;
