sub dep14_version_mangle ($) {
my ($v) = @_;
- # DEP-14 2014-11-05 "Version Mangling"
+ # DEP-14 patch proposed 2016-11-09 "Version Mangling"
$v =~ y/~:/_%/;
+ $v =~ s/\.(?=\.|$|lock$)/.#/g;
return $v;
}
if (-l _) {
$old = cmdoutput qw(realpath --), $old;
}
- link $old, $new or die "link $old $new: $!";
+ my $r = link $old, $new;
+ $r = symlink $old, $new if !$r && $!==EXDEV;
+ $r or die "(sym)link $old $new: $!";
}
sub hashfile ($) {