On Thu, 1 Feb 2007 09:53:44 -0600, [EMAIL PROTECTED]
wrote:
>Seems there's more going wrong here. Sample code:
>
>use constant ( # note parens, not curlies
Your comment points out the problem: you *should* use curlies in your
sample. Your code as written is the same as:
use constant CONT => (0, 'EXIT', 1);
It defines CONT as a list, not as a scalar.
Cheers,
-Jan
> 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
