Perl перл

[madbox_lj]

#
# Simple subs to make it clear when we're testing for BOOL values
#
sub TRUE   {return(1);} # BOOLEAN TRUE
sub FALSE  {return(0);} # BOOLEAN FALSE

(Debugging Tools for Windows, ssindex.cmd)