use EVALFILE not EVAL

Author: stmuk

bin/p6doc

@@ -85,7 +85,7 @@ multi sub MAIN() {
 multi sub MAIN($docee) {
     return MAIN($docee, :f) if defined $docee.index('.') ;
     if INDEX.IO ~~ :e {
-        my %data = EVAL slurp INDEX;
+        my %data = EVALFILE INDEX;
         if %data{$docee} {
             my $newdoc = %data{$docee}[0][0];
             return MAIN($newdoc);
@@ -99,7 +99,7 @@ multi sub MAIN($docee, Bool :$f!) {
     if ! $method {
         my %hits;
         if INDEX.IO ~~ :e {
-            my %data = EVAL slurp INDEX;
+            my %data = EVALFILE INDEX;
 
             my $final-docee = disambiguate-f-search( $docee, %data );
             ($package, $method) = $final-docee.split('.');