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