display io and offset for p command

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index 384d233..141af2a 100755 (executable)
--- a/openocd-jtag-boundary-scan.pl
+++ b/openocd-jtag-boundary-scan.pl
@@ -208,7 +208,7 @@ sub diff_bits {
                }
        }
        my $diff = join('', @o);
-       print "# diff_bits $diff\n", caller(1);
+       print "# diff_bits $diff\n";
 }
 
 print "[press enter]\n";