… | |
… | |
549 | $class =~ s/^ASN_//; |
549 | $class =~ s/^ASN_//; |
550 | $tag =~ s/^(ASN_|SNMP_)//; |
550 | $tag =~ s/^(ASN_|SNMP_)//; |
551 | $type =~ s/^BER_TYPE_//; |
551 | $type =~ s/^BER_TYPE_//; |
552 | |
552 | |
553 | if ($ber->[BER_FLAGS]) { |
553 | if ($ber->[BER_FLAGS]) { |
554 | printf "$indent%-16.16s CONSTRUCTED\n", $tag; |
554 | printf "$indent%-16.16s\n", $tag; |
555 | &_ber_dump ($_, $profile, "$indent| ") |
555 | &_ber_dump ($_, $profile, "$indent| ") |
556 | for @$data; |
556 | for @$data; |
557 | } else { |
557 | } else { |
558 | if ($data =~ y/\x20-\x7e//c / (length $data || 1) > 0.2 or $data =~ /\x00./s) { |
558 | if ($data =~ y/\x20-\x7e//c / (length $data || 1) > 0.2 or $data =~ /\x00./s) { |
559 | # assume binary |
559 | # assume binary |