From: Duke Leto <jonathan@leto.net>
Date: Wed, 3 Jun 2009 19:02:50 +0000 (-0700)
Subject: Add the debugger script which tests for undefs in the symbol table
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7ab0c82025d4ee9350d1b8806629c897a30f18e;p=p5sagit%2Fp5-mst-13.2.git

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
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";
+