Not directly relating to the problem at hand, but you may want to
consider using the Readonly library instead. It locks the variable from
changes in the value, but has some advantages over the constant
counterpart.
[EMAIL PROTECTED] wrote:
>
> 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
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
