Select Code to Download

delete($opts{l}); ## was: delete($opts{L});

# was: if (/@(?:([[:word:]:]+)::)?ISA\s*=\s*(.*)\s*/) 
if (/(?<!\\)@(?:([[:word:]:]+)::)?ISA\s*=\s*(.*)/)

while (!/;/)    # accumulate ISA value for multiple lines
{
...
@isa = eval $tmp;
# was: if ($@) { warn "Unparseable \@ISA line: $_"; next };
       if ($@) { warn "Unparseable \@ISA line: $tmp"; next };