| | 6 | |
| | 7 | #if substr($*PROGRAM_NAME, -2) eq '.t' { |
| | 8 | # my $script = slurp($*PROGRAM_NAME); |
| | 9 | # my $comp = lc $?COMPILER; |
| | 10 | # if $script ~~ /^^ '#?' 'pugs' ':'/ { # s/b $comp |
| | 11 | # my $fud = $*PROGRAM_NAME; |
| | 12 | # $fud ~~ s/t$/fud/ or die "oops"; |
| | 13 | # my $fudge; |
| | 14 | # for 0..10 -> $x { |
| | 15 | # $fudge = '../' x $x ~ 'util/fudge'; |
| | 16 | # last if $fudge ~~ :f; |
| | 17 | # } |
| | 18 | # system("$fudge $comp $*PROGRAM_NAME >$fud"); |
| | 19 | # try { |
| | 20 | # evalfile $fud; |
| | 21 | # } |
| | 22 | # say "# Fudged!"; |
| | 23 | # fail; |
| | 24 | # exit(1); |
| | 25 | # abort(); |
| | 26 | # kill -9, $*PID; |
| | 27 | # die "Fudged"; |
| | 28 | # } |
| | 29 | #} |
