On other (final?) note, supposedly:
use constant LOG_LEVEL => 10;

print LOG "something"
  if LOG_LEVEL > 8;

will allow perl to optomize the print stmt away, if the constant part of 
the if clause is false:
print LOG "not seen" 
   if LOG_LEVEL > 20;

This is from (I believe) a TPJ article a while back.  I forget the perl 
command line syntax to get the Dparse stuff to produce the actual code but 
...

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5030

It is impossible to make anything foolproof because fools are so 
ingenious.
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to