eval 'exec perl -S $0 ${1+"$@"}'
if 0;
#! /usr/local/bin/perl
#	@(#)chkundef 00-07-24
#
#	̤ܥ̵ͭΥå
#	(C) Copyright 2000 by Personal Media Corporation
#
#	i386 gcc 
#	nm Ǻޥåץեå̤ܥ뤬
#	ĤäƤУ̵֤У֤
#	̵뤷Ƥ褤ΤϤϤΤޤɸϤ˽Ϥ롣
#	ˡ̤ܥɸ२顼ϤˤϤ롣

$exist = 0;

while ( <> ) {
	# ̵뤷Ƥ褤ܥ (weak °Υܥ)
	next if /^         U __deregister_frame_info$/;
	next if /^         U __register_frame_info$/;

	print;

	if ( /^         U/ ) {
		print STDERR;
		$exist = 1;
	}
}

exit($exist);
