Help for this page

Select Code to Download


  1. or download this
     perl -version

This is perl, v5.10.0 built for i486-linux-gnu-thread-multi
  2. or download this
    BEGIN {
    $SIG{__WARN__}=sub { print "WARNING: $_[0] \n" };
...
sub fn2 (\@) {
    print $_,$/ for @_;
}
  3. or download this
    $ perl /tmp/proto.pl 
WARNING: Prototype mismatch: sub main::fn1 ($) vs (\@) at /tmp/proto.p
+l line 11.
...
WARNING: Prototype mismatch: sub main::fn2 ($) vs (\@) at /tmp/proto.p
+l line 18.
 
output1output2