Add support for anchors

[zeal.git] / lib / Zeal / Docset.pm

diff --git a/lib/Zeal/Docset.pm b/lib/Zeal/Docset.pm
index c3f2f36a3decf4f7bb6f0dd4deb5bb376d24eb62..0857aeeb4f263dfe22d4fdc2d6fd1e13c53e4443 100644 (file)
--- a/lib/Zeal/Docset.pm
+++ b/lib/Zeal/Docset.pm
@@ -40,7 +40,11 @@ sub new {
 
 sub _blessdocs {
        my ($self, $docsref) = @_;
-       map { Zeal::Document->new(+{%$_, docset => $self}) } @$docsref;
+       map {
+               my %hash = (%$_, docset => $self);
+               ($hash{path}, $hash{anchor}) = split /#/s, $hash{path};
+               Zeal::Document->new(\%hash);
+       } @$docsref;
 }
 
 sub fetch {