This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Increase $File::Glob::VERSION to 1.18
[perl5.git] / lib / perl5db / t / symbol-table-bug
CommitLineData
c7ab0c82
DL
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