Skip Menu |

This queue is for tickets about the Path-Ancestor CPAN distribution.

Report information
The Basics
Id: 122341
Status: new
Priority: 0/
Queue: Path-Ancestor

Owner: Nobody in particular
Requestors: jan.bottek [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Subject: Path Ancestor match a false Ancestor with the following example
Date: Mon, 3 Jul 2017 20:17:36 +0200
To: bug-Path-Ancestor [...]
From: Jan Bottek <jan.bottek [...]>
Download (untitled) / with headers
text/plain 836b
Hi Mike Schilli, with the following example, the great Path::Ancestor module will match a wrong Ancestor path ----------------------------------------------------------- use strict; use warnings; use Path::Ancestor qw(longest_common_ancestor); my @pathes = ("/foo/bar/baz", "/foo/bar/baz/moo", "/foo/bar1/qasa" ); # possible solution my $ancestor = longest_common_ancestor( @pathes ); print "Wrong: $ancestor"; print "\n"; @pathes = reverse sort @pathes; $ancestor = longest_common_ancestor( @pathes ); print "with Ancestor patch: $ancestor"; ----------------------------------------------------------- Stupid patch from my site was to reverse/sort the entry pathes. What do you think about it? Thx in Advance. Kind regards. Jan Bottek

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to