Perl-Dist-Strawberry
view release on metacpan or search on metacpan
share/perl-5.20/installperl view on Meta::CPAN
603604605606607608609610611612613614615616617618619620621622sub
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
);
" unlink $name\n"
if
$opts
{verbose};
next
if
CORE::
unlink
(
$name
);
warn
"Couldn't unlink $name: $!\n"
;
if
($! =~ /busy/i) {
" 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 )