~mdw
/
sgt
/
utils
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
`lns . subdir' was trying to create a link called `subdir/.',
[sgt/utils]
/
lns
/
lns
diff --git
a/lns/lns
b/lns/lns
index
d44dc8c
..
db35f9a
100755
(executable)
--- a/
lns/lns
+++ b/
lns/lns
@@
-107,6
+107,11
@@
$target =~ s/// if $target =~ /\/$/; # strip trailing slash if present
if ($multiple) {
foreach $source (@ARGV) {
if ($multiple) {
foreach $source (@ARGV) {
+ # We must path-normalise $source _before_ looking for the final
+ # filename component, to deal with the case of `lns . subdir'
+ # in which we want the link to be called subdir/<dirname> rather
+ # than subdir/. .
+ $source = &normalise($source);
$source =~ /^(.*\/)?([^\/]*)$/; # find final file name component
&makelink($source, "$target/$2"); # actually make a link
}
$source =~ /^(.*\/)?([^\/]*)$/; # find final file name component
&makelink($source, "$target/$2"); # actually make a link
}