Help for this page

Select Code to Download


  1. or download this
        454 # ===== basic utility routines
    455 
...

    640 sub writelog($) {
    641     my $arg = shift;
  2. or download this
    $ perl -le'
use warnings;
...
@_ =            $arg = F
Argument "J" isn't numeric in range (or flop) at -e line 13.
Use of uninitialized value $. in range (or flop) at -e line 13.
  3. or download this
    $ perl -le'
use warnings;
...
@_ =            $arg = F
Argument "J" isn't numeric in range (or flop) at -e line 13.
Use of uninitialized value $. in range (or flop) at -e line 13.