load code depends and description

[MojoFacets.git] / lib / MojoFacets / Code.pm

diff --git a/lib/MojoFacets/Code.pm b/lib/MojoFacets/Code.pm
index 976321b..5b87a16 100644 (file)
--- a/lib/MojoFacets/Code.pm
+++ b/lib/MojoFacets/Code.pm
@@ -20,6 +20,7 @@ sub index {
        foreach my $full_path ( glob("$dir/*.pl") ) {
                my $path = $full_path;
                $path =~ s/^$dir\/*//;
+               $path =~ s/\.pl$//;
                my ( $column, $description ) = split(/\./,$path,2);
                $snippets->{$column}->{$description} = read_file $full_path;
        }