[perl #49258] Parrot::Test with --run-exec assumes "." is in $PATH

[via RT]

# New Ticket Created by  Bob Rogers 
# Please include the string:  [perl #49258]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=49258 >


   The attached test case will illustrate the problem (but be sure to
check that $PATH does not contain "." first):

        [EMAIL PROTECTED]> perl pbc.t
        1..1
        not ok 1 - .const of null string
        #     Failed test (pbc.t at line 18)
        #          got: ''
        #     expected: 'ok
        # '
        # Looks like you failed 1 test of 1.
        [EMAIL PROTECTED]> PATH=".:$PATH" perl pbc.t
        1..1
        ok 1 - .const of null string
        [EMAIL PROTECTED]> 

I think the right thing would be to mangle $exe_f to start with "./",
but I don't know how to do that portably.

                                        -- Bob Rogers
                                           http://rgrjr.dyndns.org/


#!perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: spill.t 22180 2007-10-17 19:33:17Z allison $

use strict;
use warnings;

use lib qw( . lib ../lib ../../lib );
use Parrot::Test tests => 1;

# Odd communication with Parrot::Test.
my $args = $ENV{TEST_PROG_ARGS} || '';
$args .= ' '
    if $args;
$args .= '--run-exec';
local $ENV{TEST_PROG_ARGS} = $args;

pir_output_is( <<'CODE', <<'OUTPUT', ".const of null string" );
# NB: This only fails if compiled.
.sub 'main'
     .const .String empty = ''
     print empty
     print "ok\n"
.end
CODE
ok
OUTPUT