diff options
author | Duke Leto <jonathan@leto.net> | 2009-06-03 12:02:50 -0700 |
---|---|---|
committer | Duke Leto <jonathan@leto.net> | 2009-06-03 12:02:50 -0700 |
commit | c7ab0c82025d4ee9350d1b8806629c897a30f18e (patch) | |
tree | 3086839db4dfd6950789e64a9736218c17f2aa8a /lib/perl5db | |
parent | bc6438f27b8177f398dff639c69a23d6decfb59d (diff) | |
download | perl-c7ab0c82025d4ee9350d1b8806629c897a30f18e.tar.gz |
Add the debugger script which tests for undefs in the symbol table
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/symbol-table-bug | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/perl5db/t/symbol-table-bug b/lib/perl5db/t/symbol-table-bug new file mode 100644 index 0000000000..6b5c0e45f0 --- /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"; + |