--- Convert-BER-XS/XS.pm	2019/04/21 00:42:15	1.40
+++ Convert-BER-XS/XS.pm	2019/04/21 00:42:58	1.41
@@ -556,13 +556,13 @@
          if ($data =~ y/\x20-\x7e//c / (length $data || 1) > 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;
-            $data = "\"$data\"" if $type =~ /string/i;
-            substr $data, 40, 1e9, "..." if 40 < length $data;
+            $data = "\"$data\"" if $type =~ /string/i || !length $data;
          }
 
+         substr $data, 40, 1e9, "..." if 40 < length $data;
+
          printf "$indent%-16.16s %-6.6s %s\n", $tag, lc $type, $data;
       }
    }