view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    if (!(print $outfile $line)) {
      print STDERR "Cannot write $dest.new: $!\n";
    }
  }
  close($infile);
  close($outfile);
  if (-f "$dest.bak"  &&  !unlink "$dest.bak") {
    print STDERR "Cannot remove $dest.bak: $!\n";
    exit 10;
  }
  if (!rename("$dest", "$dest.bak")) {
    print STDERR "Cannot rename $file to $dest.bak\n";
    exit 10;
  }
  if (!rename("$dest.new", "$dest")) {
    print STDERR "Cannot rename $dest.new to $dest: $!\n";
    exit 10;
  }
  unlink "$dest.bak";
  unless (chmod $perms, $dest) {
    print STDERR "Cannot change permissions on $dest: $!\n";
  }
  1;
}

sub configure {