Seems there's more going wrong here. Sample code:
use constant ( # note parens, not curlies
CONT => 0,
EXIT => 1,
);
sub use_it {
my ($code, $msg) = @_;
print "code = $code, message = \"$msg\"\n";
}
# now try the sub call:
use_it( CONT, "hello world" );
--------------------------------------------------------------------------------
output:
code = 0, message = "EXIT"
If I replace the parens in the use constant line with curlies, it works
when interpreted and dies when compiled as in my OP. The output here is
also from a compiled executable. I've given up on using the constants, but
would appreciate any insights as to just what the heck went wrong...
Deane Rothenmaier
Systems Architect
Walgreens Corp.
847-914-5150
"On two occasions I have been asked [by members of Parliament], 'Pray, Mr.
Babbage, if you put into the machine wrong figures, will the right answers
come out?' I am not able rightly to apprehend the kind of confusion of
ideas that could provoke such a question." -- Charles Babbage_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
