view release on metacpan or  search on metacpan

lanman.pm  view on Meta::CPAN

		
		if ($! != 0)
		{
				if ($! =~ /Invalid/)
				{
						$AutoLoader::AUTOLOAD = $AUTOLOAD;
						goto &AutoLoader::AUTOLOAD;
				}
				else
				{
						my ($file,$line) = (caller)[1,2];
						die "Your vendor has not defined $Package macro $constname, used in $file at line $line.";
				}
		}
		
		eval "sub $AUTOLOAD { $val }";
		
		goto &$AUTOLOAD;
}

sub LogonControlQuery {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_QUERY, '', $_[1]);}