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