Select Code to Download

panic: malloc at /usr/lib/perl5/5.8.6/Carp/Heavy.pm line 61.
Debugged program terminated.

  $arg =~ s/([[:cntrl:]]|[[:^ascii:]])/sprintf("\\x{%x}",ord($1))/eg;

  # The following handling of "control chars" is direct from
  # the original code - I think it is broken on Unicode though.
  # Suggestions?

  heavy machinery, no user serviceable parts inside