Perl-Dist-Strawberry

 view release on metacpan or  search on metacpan

share/perl-5.20/installperl  view on Meta::CPAN

603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
sub safe_unlink {
    return if $opts{notify} or $Is_VMS;
    my @names = @_;
    foreach my $name (@names) {
        next unless -e $name;
        chmod 0777, $name if ($Is_OS2 || $Is_W32 || $Is_NetWare);
        print "  unlink $name\n" if $opts{verbose};
        next if CORE::unlink($name);
        warn "Couldn't unlink $name: $!\n";
        if ($! =~ /busy/i) {
            print "  mv $name $name.old\n" if $opts{verbose};
            safe_rename($name, "$name.old")
                or warn "Couldn't rename $name: $!\n";
        }
    }
}
 
sub copy {
    my($from,$to) = @_;



( run in 0.312 second using v1.01-cache-2.11-cpan-2b0bae70ee8 )