'a' x 3 => 'aaa'
'a' x 3*2 => 'aaa' * 2 ==> error You can never combine the
math operators with strings (unless the string happens to be
a number) ex:
'2' x 3*2 = 222*2 => 444, but that's a pretty unclear way to multiply 222 by 2.
####
[sic]
3*2 x ' '
####
a=2*3;str=' ';while (a--) strcat(str,str);
####
use ExceptionHandler;
####
Register_Traceback; #default is to register traceback for
#SIGDIE & SIGWARN
####
Regsister_Traceback('QUIT') #(control-\)
So if I get stuck in an infinite loop somewhere, pressing
ctl-\ instead of ctl-c will give me a traceback before exiting. Optionally the trackback registration can take
a pointer to your own routine to call. Based on the return
value of your own coded handler, Perl will then
take an action based on the setup:
# sig, callback|disposition
# disposition = sign-bit=exit immediate
# = (0) = exit
# = 1-7 if (devel){stack trace} + ignore "X" times + exit
# = 0x10 = message/nomessage
# = 0x20 = 0=count in bottom nibble, 1=noexit
# = callback and status returns above val for further
# = processing
####
' ' x 3*2