display pin before bin diff

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index 8462f5a..393ae5d 100755 (executable)
--- a/openocd-jtag-boundary-scan.pl
+++ b/openocd-jtag-boundary-scan.pl
@@ -148,7 +148,8 @@ sub diff_bits {
                if ( $o[$i] eq $n[$i] ) {
                        $o[$i]='.';
                } else {
-                       $o[$i].='>'.$n[$i];
+                       my $pin = $bit2pin->{ 288 - ($i * 3) - 3 }->[0];
+                       $o[$i] = " $pin:" . $o[$i] . '>' . $n[$i];
                }
        }
        my $diff = join('', @o);