$*EXECUTABLE_NAME instead of hard coded perl6

szabgab · szabgab · commit 0c8a07203acf · 2012-07-05T00:13:55.000+03:00
diff --git a/bin/p6doc b/bin/p6doc
@@ -53,11 +53,11 @@ sub show-docs(Str $path, :$section) {
    if $section.defined {
        %*ENV<PERL6_POD_HEADING> = $section;
       my $i = findbin() ~ '../lib';
-       say "launching 'perl6 -I$i --doc=SectionFilter $path | $pager'" if DEBUG;
-       shell "perl6 -I$i --doc=SectionFilter $path | $pager";
+       say "launching '$*EXECUTABLE_NAME -I$i --doc=SectionFilter $path | $pager'" if DEBUG;
+       shell "$*EXECUTABLE_NAME -I$i --doc=SectionFilter $path | $pager";
    }
    else {
-       shell "perl6 --doc $path | $pager";
+       shell "$*EXECUTABLE_NAME --doc $path | $pager";
    }
 
 }

Original file line number	Diff line number	Diff line change
`@@ -53,11 +53,11 @@ sub show-docs(Str $path, :$section) {`
`53`	`53`	`if $section.defined {`
`54`	`54`	`%*ENV<PERL6_POD_HEADING> = $section;`
`55`	`55`	`my $i = findbin() ~ '../lib';`
`56`		`- say "launching 'perl6 -I$i --doc=SectionFilter $path \| $pager'" if DEBUG;`
`57`		`- shell "perl6 -I$i --doc=SectionFilter $path \| $pager";`
	`56`	`+ say "launching '$*EXECUTABLE_NAME -I$i --doc=SectionFilter $path \| $pager'" if DEBUG;`
	`57`	`+ shell "$*EXECUTABLE_NAME -I$i --doc=SectionFilter $path \| $pager";`
`58`	`58`	`}`
`59`	`59`	`else {`
`60`		`- shell "perl6 --doc $path \| $pager";`
	`60`	`+ shell "$*EXECUTABLE_NAME --doc $path \| $pager";`
`61`	`61`	`}`
`62`	`62`
`63`	`63`	`}`