Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Merge pull request #24 from stmuk/master
fix 1 reported issue with p6doc eval breakage and fix p6doc under star
  • Loading branch information
FROGGS committed Jul 26, 2014
2 parents 1e3415f + a869400 commit b9e3791
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
4 changes: 2 additions & 2 deletions README
Expand Up @@ -4,11 +4,11 @@ A HTML version of this documenation can be found at http://doc.perl6.org/

With a Rakudo 'perl6' executable in PATH, try

./bin/p6doc Str
./bin/p6doc Type::Str

to see the documentation for class Str, or

./bin/p6doc Str.split
./bin/p6doc Type::Str.split

to see the documentation for method split in class Str

Expand Down
6 changes: 3 additions & 3 deletions bin/p6doc
Expand Up @@ -63,14 +63,14 @@ sub show-docs(Str $path, :$section) {

multi sub MAIN() {
say 'What documentation do you want to read?';
say "Examples: $*PROGRAM_NAME Str";
say " $*PROGRAM_NAME Str.split";
say "Examples: $*PROGRAM_NAME Type::Str";
say " $*PROGRAM_NAME Type::Str.split";
}

multi sub MAIN($docee) {
return MAIN($docee, :f) if defined $docee.index('.') ;
if 'index.data'.IO ~~ :e {
my %data = eval slurp 'index.data';
my %data = EVAL slurp 'index.data';
if %data{$docee} {
my $newdoc = %data{$docee}[0][0] ~ "." ~ %data{$docee}[0][1];
return MAIN($newdoc, :f);
Expand Down

0 comments on commit b9e3791

Please sign in to comment.