view t/fudgeandrun @ 0:c341f82e7ad7 default tip

Rakudo branch in cr.ie.u-ryukyu.ac.jp
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 26 Dec 2019 16:50:27 +0900
parents
children
line wrap: on
line source

#! /usr/bin/env perl
use strict;
use warnings;

use FindBin qw($Bin);

######################################################################
# This is where fudgeandrun was when it was a rakudo utility.
# It has since been recoded for implementation independence and
# moved to roast.  This stub is here to limit disruption from
# the move.
######################################################################

my $roast_far = "$Bin/spec/fudgeandrun";
-e $roast_far or
    die "fudgeandrun has moved to roast but does not seem to be there. ",
        "Perhaps updating roast (t/spec) will help.\n";

exec $^X, $roast_far, @ARGV or die "Could not exec $roast_far: $!"
    unless $^O eq 'MSWin32';
system($^X, $roast_far, @ARGV) == 0 or
    die "Could not run $roast_far: $?";