--- libnet-1.19/Net/Domain.pm-	2004-06-30 13:56:10 +0000

+++ libnet-1.19/Net/Domain.pm	2005-06-11 15:28:24 +0000

@@ -58,8 +58,14 @@ sub _hostname {

     else {

 	local $SIG{'__DIE__'};

+	# ALT: why not use Sys::Hostname?

+	do {

+		require Sys::Hostname;

+		$host = Sys::Hostname::hostname();

+	}

+

 	# syscall is preferred since it avoids tainting problems

-	eval {

+	|| eval {

     	    my $tmp = "\0" x 256; ## preload scalar

     	    eval {

     		package main;