view release on metacpan or  search on metacpan

extra/fixsrccnt  view on Meta::CPAN

  my $brid = $1;
  my $ver;
  for (@cnt[3..$#cnt]) {
    if (/^\^V \Q$oidprv\E (\w+ \w+) \w+$/) {
      $ver = $1;
      last;
    }
  }
  return unless $ver;
  $cnt[2] = "^B $oidbr $brid $ver\n";
  my $perm = (stat($f))[2];
  chmod($perm | 0600, $f) or return;
  write_file($f, @cnt);
  chmod($perm, $f);
}

for (split /@@/, $ARGV[0]) {
  fixone($_);
}