fixed bug when stow dir is /foo
This commit is contained in:
parent
8813658049
commit
d9e2ebaf26
2 changed files with 8 additions and 1 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
Sun Jan 20 12:41:39 2002 Guillaume Morin <gmorin@gnu.org>
|
||||||
|
|
||||||
|
* stow.in: fixed a bug if the stow directory is /foo.
|
||||||
|
Bug spotted and fixed by Jim Radford <radford@blackbean.org>.
|
||||||
|
|
||||||
Wed Jan 9 02:20:15 2002 Gaël Roualland <gael.roualland@iname.com>
|
Wed Jan 9 02:20:15 2002 Gaël Roualland <gael.roualland@iname.com>
|
||||||
|
|
||||||
* stow.in: added the '--ignore' and '--force' options.
|
* stow.in: added the '--ignore' and '--force' options.
|
||||||
|
|
4
stow.in
4
stow.in
|
@ -545,7 +545,9 @@ sub parent {
|
||||||
local($path) = join('/', @_);
|
local($path) = join('/', @_);
|
||||||
local(@elts) = split(/\/+/, $path);
|
local(@elts) = split(/\/+/, $path);
|
||||||
pop(@elts);
|
pop(@elts);
|
||||||
join('/', @elts);
|
# if @_ = ('/foo')
|
||||||
|
# join('/',@elts) would be ''
|
||||||
|
join('/', @elts) || '/';
|
||||||
}
|
}
|
||||||
|
|
||||||
sub usage {
|
sub usage {
|
||||||
|
|
Loading…
Reference in a new issue