Help for this page

Select Code to Download


  1. or download this
    delete($opts{l}); ## was: delete($opts{L});
  2. or download this
    # was: if (/@(?:([[:word:]:]+)::)?ISA\s*=\s*(.*)\s*/) 
if (/(?<!\\)@(?:([[:word:]:]+)::)?ISA\s*=\s*(.*)/)
  3. or download this
    while (!/;/)    # accumulate ISA value for multiple lines
{
...
@isa = eval $tmp;
# was: if ($@) { warn "Unparseable \@ISA line: $_"; next };
       if ($@) { warn "Unparseable \@ISA line: $tmp"; next };