sub PkgContains
{
  my ($package, $sub) = @_;	# Return TRUE if $package contains $sub
  no strict;

  local(*pkg_symtab) = eval("*${package}::");
  return 0 unless defined(%pkg_symtab);
  return defined($pkg_symtab{$sub});
}

##</code><code>##

sub PkgContains
{
  my ($package, $sub) = @_;	# Return TRUE if $package contains $sub
  no strict;

  local(*pkg_symtab) = eval("*${package}::");
  if (exists $pkg_symtab{$sub}){
	return defined($pkg_symtab{$sub});
  }else{
	return 0;
  }
}