Help for this page

Select Code to Download


  1. or download this
    sub print
{
    print $value unless $value eq '-';
}
  2. or download this
    >perl -wMstrict -le
"sub print { CORE::print('foo') }
...
"
Deep recursion on subroutine "main::print" at -e line 1.
Terminating on signal SIGINT(2)