view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

  }
  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 {
  my $perlpath = sub {
    $line = shift;

    $line =~ s/^#!.*/#!$Config{perlpath}/;