On Wednesday, October 20, 2004, at 02:29PM, Abe Timmerman <[EMAIL PROTECTED]> wrote:
>> I've changed test.com to use a global symbol rather than a
>> parameter to determine whether to use t/TEST or t/harness. That leaves
>> the parameters free to work as they always have.
>
>Sorry about that. I just wanted something easy callable from Test::Smoke.
>So, here's a question: "How do I manipulate global symbols from perl?"
Do you need to? If you are doing C<mmk test_harness>, the descrip.mms will set the
symbol for you. If you want to run test.com directly from Perl and have it use
t/harness, you can easily set a symbol like so
use VMS::DCLsym;
$h = new VMS::DCLsym;
$h->setsym('PERL_TEST_DRIVER', 'harness.', 'GLOBAL')
or die "Can't set symbol: $!";
See
$ perldoc VMS::DCLsym
Oops, there's a doc bug; the line that says:
$handle = new VMS::DCLsyms;
should say
$handle = new VMS::DCLsym;
