view release on metacpan or  search on metacpan

script/maint_ip_world_db  view on Meta::CPAN

      eval "require Module::Build;";
      if ($@) {die "Can't load Module::Build: $@"}
      my $build = Module::Build->current();

      if ($build->is_unixish()) {
        # prevent making a root-owned file in blib
        my ($old_uid, $old_gid) = (CORE::stat $replfn)[4..5];
        my ($new_uid, $new_gid) = (CORE::stat $outfn )[4..5];
        if ($new_uid != $old_uid
         || $new_gid != $old_gid) {
          chown ($old_uid, $old_gid, $outfn)==1
            or die "Can't transfer owner:group from old $replfn to new: $!";
    } } }
    # old file(s) -> .bak[xx] then new file(s) -> .dat or .le or .be
    my @renamers = $dual_out ? (\$outfn, 'le',  'bakle', \$outfn2, 'be', 'bakbe')
                             : (\$outfn, 'dat', 'bak');
    while (@renamers) {
      my ($targfn, $bakfn);
      ($targfn = ${$renamers[0]}) =~ s/[^.]+$/$renamers[1]/e;
      ($bakfn  = ${$renamers[0]}) =~ s/[^.]+$/$renamers[2]/e;
      rename ($targfn, $bakfn)==1