# 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