Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Concise -e 'print <>'
7  <@> leave[t1] vKP/REFC ->(end)
1     <0> enter ->2
...
3        <0> pushmark s ->4
5        <1> readline[t1] lK/1 ->6
4           <$> gv(*ARGV) s ->5 *ARGV
  2. or download this
    package SafeReadline;
require Exporter;
@ISA = 'Exporter';
...
    $pkg->export("CORE::GLOBAL", $sym, @_);
}
sub readline { ... }