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