--- 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;