[ViewVC] Diff of: cvs/Convert-BER-XS/XS.pm

Comparing Convert-BER-XS/XS.pm (file contents):
Revision 1.36 by root, Sun Apr 21 00:36:11 2019 UTC vs.
Revision 1.39 by root, Sun Apr 21 00:41:31 2019 UTC

 To aid debugging, you cna call the C<ber_dump> function to print a "nice"
 representation to STDOUT.
 =over
-=item Convert::BER::XS::ber_dump $tuple[, $profile[, $prefix]]
+=item ber_dump $tuple[, $profile[, $prefix]]
 In addition to specifying the BER C<$tuple> to dump, youc an also specify
 a C<$profile> and a C<$prefix> string that is printed in front of each line.
 If C<$profile> is C<$Convert::BER::XS::SNMP_PROFILE>, then C<ber_dump>
       my $type  = _re const_ber_type => $profile->get ($ber->[BER_CLASS], $ber->[BER_TAG]);
       my $data  = $ber->[BER_DATA];
       if ($profile == $SNMP_PROFILE and $ber->[BER_CLASS] == ASN_APPLICATION) {
          $tag = _re const_snmp => $ber->[BER_TAG];
-         $asn = 1;
+      } elsif (!$asn) {
+         $tag = "$class ($tag)";
       }
-      $asn or $tag = "$class ($tag)";
       $class =~ s/^ASN_//;
       $tag   =~ s/^(ASN_|SNMP_)//;
       $type  =~ s/^BER_TYPE_//;
       if ($ber->[BER_FLAGS]) {
          printf "$indent%-16.16s %-6.6s CONSTRUCTED\n", $tag, lc $type;
          &_ber_dump ($_, $profile, "$indent| ")
             for @$data;
       } else {
-         if ($data =~ y/\x20-\x7e//c > 10 or $data =~ /\x00./s) {
+         if ($data =~ y/\x20-\x7e//c / length $data > 0.2 or $data =~ /\x00./s) {
             # assume binary
             $data = unpack "H*", $data;
             substr $data, 40, 1e9, "..." if 40 < length $data;
          } else {
             $data =~ s/[^\x20-\x7e]/./g;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines