JoinPaths bug fixed
This commit is contained in:
parent
40829049ea
commit
e7db8097f3
2 changed files with 8 additions and 1 deletions
|
@ -1,3 +1,10 @@
|
||||||
|
Wed Jan 02 20:58:05 2002 Guillaume Morin <gmorin@gnu.org>
|
||||||
|
|
||||||
|
* stow.in: fixed JoinPaths so that subdir called "0" are
|
||||||
|
correctly pushed. Thanks a lot to Gergely Nagy
|
||||||
|
<algernon@bonehunter.rulez.org> who patiently helped me to chase
|
||||||
|
this bug.
|
||||||
|
|
||||||
Sun Dec 30 21:58:25 2001 Guillaume Morin <gmorin@gnu.org>
|
Sun Dec 30 21:58:25 2001 Guillaume Morin <gmorin@gnu.org>
|
||||||
|
|
||||||
* stow.in: fixed a bug introduced by previous changes when
|
* stow.in: fixed a bug introduced by previous changes when
|
||||||
|
|
2
stow.in
2
stow.in
|
@ -181,7 +181,7 @@ sub JoinPaths {
|
||||||
foreach $x (@_) {
|
foreach $x (@_) {
|
||||||
@parts = split(/\/+/, $x);
|
@parts = split(/\/+/, $x);
|
||||||
foreach $y (@parts) {
|
foreach $y (@parts) {
|
||||||
push(@paths, $y) if $y;
|
push(@paths, $y) if ($y ne "");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$result .= join('/', @paths);
|
$result .= join('/', @paths);
|
||||||
|
|
Loading…
Reference in a new issue