<PerlJam> That p6doc patch isn't quite right. #| and #= don't have to appear at the beginning

stmuk · stmuk · commit 2b4bfef8911b · 2014-09-04T19:18:21.000+01:00
diff --git a/bin/p6doc b/bin/p6doc
@@ -48,7 +48,7 @@ sub locate-module(Str $modulename) {
 
 sub show-docs(Str $path, :$section) {
    my $pager = %*ENV<PAGER> // ($*OS eq 'MSWin32' ?? 'more' !! 'less');
-   if not open($path).lines.grep( /^('=' | '#|' | '#=')/ )  {
+   if not open($path).lines.grep( /^'=' | '#|' | '#='/ )  {
       say "No Pod found in $path";
       return;
    }

Original file line number	Diff line number	Diff line change
`@@ -48,7 +48,7 @@ sub locate-module(Str $modulename) {`
`48`	`48`
`49`	`49`	`sub show-docs(Str $path, :$section) {`
`50`	`50`	`my $pager = %ENV<PAGER> // ($OS eq 'MSWin32' ?? 'more' !! 'less');`
`51`		`- if not open($path).lines.grep( /^('=' \| '#\|' \| '#=')/ ) {`
	`51`	`+ if not open($path).lines.grep( /^'=' \| '#\|' \| '#='/ ) {`
`52`	`52`	`say "No Pod found in $path";`
`53`	`53`	`return;`
`54`	`54`	`}`