Check that find_stowed_path $path matches relative/absolute with target

Watch out for a corner case probably only relevant in tests.
This commit is contained in:
Adam Spiers 2019-06-28 15:22:44 +01:00
parent 3270b145e1
commit 40a0807185

View file

@ -961,6 +961,12 @@ sub find_stowed_path {
# If no .stow file was found, we need to find out whether it's # If no .stow file was found, we need to find out whether it's
# owned by the current stow directory, in which case $path will be # owned by the current stow directory, in which case $path will be
# a prefix of $self->{stow_path}. # a prefix of $self->{stow_path}.
if (substr($path, 0, 1) eq '/' xor substr($self->{stow_path}, 0, 1) eq '/')
{
warn "BUG in find_stowed_path? Absolute/relative mismatch between " .
"Stow dir $self->{stow_path} and path $path";
}
my @stow_path = split m{/+}, $self->{stow_path}; my @stow_path = split m{/+}, $self->{stow_path};
# Strip off common prefixes until one is empty # Strip off common prefixes until one is empty