c7ab0c82 DL |
1 | #!/usr/bin/perl |
2 | # |
3 | # This code is used by lib/perl5db.t !!! |
4 | # |
5 | |
6 | use strict; |
7 | no strict 'refs'; |
8 | my %main = %{*{"main\::"}} ; |
9 | my @undef_symbols = grep { !defined $main{$_} } (keys %main); |
10 | print 'Undefined symbols ', scalar(@undef_symbols) . "\n"; |
11 | |