Help for this page

Select Code to Download


  1. or download this
    C:\test>perl -wE"no warnings 'redefine';sub FOO(){23};sub FOO(){42 if 
+$];};say$];"
Constant subroutine FOO redefined at -e line 1.
5.014002
  2. or download this
    C:\test>perl -wE"no warnings 'redefine';sub FOO(){23};sub FOO(){23};sa
+y$];"
5.014002