Add the debugger script which tests for undefs in the symbol table

diff --git a/lib/perl5db/t/symbol-table-bug b/lib/perl5db/t/symbol-table-bug
new file mode 100644 (file)
index 0000000..6b5c0e4
--- /dev/null
+++ b/lib/perl5db/t/symbol-table-bug
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+#
+# This code is used by lib/perl5db.t !!!
+#
+
+use strict;
+no strict 'refs';
+my %main = %{*{"main\::"}} ;
+my @undef_symbols = grep { !defined $main{$_} } (keys %main);
+print 'Undefined symbols ', scalar(@undef_symbols) . "\n";
+