view release on metacpan or  search on metacpan

alienfile  view on Meta::CPAN

    my $permissions = (stat ($fname))[2];
    open my $fh, $fname or die $!;
    my $text = do {local $/ = undef; <$fh>};
    $fh->close;
    $text =~ s/(freebsd[12])\*/$1.*/gms;
    $text =~ s/(freebsd\[123?\])\*/$1.*/gms;
    rename $fname, "$fname.bak";
    open my $ofh, '>', $fname or die $!;
    print {$ofh} $text;
    $ofh->close;
    chmod $permissions, $fname;
  }
  
  return;
}

sub rename_la_files {
    #  need to return if not share
    return if !$on_windows;
    
    use File::Find::Rule;