From: Tony Esposito <[EMAIL PROTECTED]>
> Thanks....I got this issue resolved.
> One could also "resolve" the constant in a print statement like so:
>
> ...
> print STDERR "ERROR 4: where <threshold> is between @{[
> MIN_THRESHOLD ]} and @{[ MAX_THRESHOLD ]}.\n";
Yep. It's a shame that the Perl optimizer is not bright enough to
"evaluate" this during compile time :-(
c:\> perl -MO=Deparse -e "use constant MAX => 99;print [EMAIL PROTECTED] MAX
]}.\n};"
use constant ('MAX', 99);
print "[EMAIL PROTECTED];}.\n";
-e syntax OK
c:\> perl -MO=Deparse -e "use constant MAX => 99;print
qq{MAX=}.MAX.qq{.\n};"
use constant ('MAX', 99);
print "MAX=99.\n";
(Tested with perl, v5.8.0 built for MSWin32-x86-multi-thread
Binary build 805 provided by ActiveState Corp.)
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
