JoinPaths bug fixed

This commit is contained in:
Guillaume Morin 2002-01-02 20:01:40 +00:00
parent 40829049ea
commit e7db8097f3
2 changed files with 8 additions and 1 deletions

View file

@ -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

View file

@ -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);