Update the symbol-hiding script to capture a broader range of symbols

contrib/symbol-hiding.pl

@@ -82,17 +82,22 @@ foreach my $line (split /[\r\n]+/, $output) {
     }
     # this is a line of interest - see if the
     # next token indicates a public symbol by
-    # being a 'T'
+    # being a 'T' or a 'B'
     $val = shift(@values);
-    if ("T" ne $val) {
+    if ("T" eq $val || "B" eq $val || "D" eq $val ||
-        quiet_print "NOT T\n";
+        "t" eq $val || "b" eq $val || "d" eq $val) {
-        next;
+        $val = shift(@values);
-    }
+        # if this symbol contains a '.', then we
-    $val = shift(@values);
+        # need to ignore it
-    quiet_print "GOT: " . $val . "\n";
+        if (index($val, ".") != -1) {
-    push @symbols, $val;
+            quiet_print "skipping $val\n";
-    if ($len < length($val)) {
+            next;
-        $len = length($val);
+        }
+        quiet_print "GOT: " . $val . "\n";
+        push @symbols, $val;
+        if ($len < length($val)) {
+            $len = length($val);
+        }
     }
 }