Permalink
Browse files

Add missing regex anchor when looking up synopses

This makes "grok s32-str" return s32-str instead of s32-abstraction
  • Loading branch information...
hinrik committed Jul 13, 2009
1 parent e70dee1 commit 441af62962880e3225c324b08eeecf771e4691f3
Showing with 3 additions and 1 deletion.
  1. +2 −0 Changes
  2. +1 −1 lib/App/Grok.pm
View
@@ -1,6 +1,8 @@
0.12
- Depend on latest Perl6::Perldoc::To::Ansi and Pod::Text::Ansi
for a consistent look
- Fix a bug causing "grok s32-str" to deliver s32-abstraction instead
of s32-str
0.11 Mon Jul 6 23:36:06 EDT 2009
- Use PAGER environment variable if set
View
@@ -193,7 +193,7 @@ sub find_synopsis {
if (my ($section) = $syn =~ /^S32-(\S+)$/i) {
my $S32_dir = catdir($dir, 'S32-setting-library');
my @sections = map { (splitpath($_))[2] } glob "$S32_dir/*.pod";
my $found = first { /$section/i } @sections;
my $found = first { /^$section/i } @sections;
if (defined $found) {
return catfile($S32_dir, $found);

0 comments on commit 441af62

Please sign in to comment.