--- Convert-BER-XS/XS.pm	2019/04/21 12:00:42	1.48
+++ Convert-BER-XS/XS.pm	2019/04/21 23:10:11	1.49
@@ -498,7 +498,7 @@
    SEQUENCE
    | OCTET_STRING     bytes  800063784300454045045400000001
    | OCTET_STRING     bytes
-   | CONTEXT (7)      bytes  CONSTRUCTED
+   | CONTEXT (7)      CONSTRUCTED
    | | INTEGER          int    1058588941
    | | INTEGER          int    0
    | | INTEGER          int    0
@@ -551,7 +551,7 @@
       $type  =~ s/^BER_TYPE_//;
 
       if ($ber->[BER_FLAGS]) {
-         printf "$indent%-16.16s %-6.6s CONSTRUCTED\n", $tag, lc $type;
+         printf "$indent%-16.16s CONSTRUCTED\n", $tag;
          &_ber_dump ($_, $profile, "$indent| ")
             for @$data;
       } else {