diff -Nru Sys-Hostname-Long-1.4.orig/lib/Sys/Hostname/Long.pm Sys-Hostname-Long-1.4/lib/Sys/Hostname/Long.pm
--- Sys-Hostname-Long-1.4.orig/lib/Sys/Hostname/Long.pm	2005-06-26 00:34:10.000000000 +0200
+++ Sys-Hostname-Long-1.4/lib/Sys/Hostname/Long.pm	2007-05-09 12:11:41.000000000 +0200
@@ -33,17 +33,6 @@
 		},
 	},
 
-	'win32_registry1' => {
-		'title' => 'WIN32 Registry',
-		'description' => 'LMachine/System/CurrentControlSet/Service/VxD/MSTCP/Domain',
-		'exec' => sub {
-			return eval q{
-				use Win32::TieRegistry ( TiedHash => '%RegistryHash' );
-				$RegistryHash{'LMachine'}{'System'}{'CurrentControlSet'}{'Services'}{'VxD'}{'MSTCP'}{'Domain'}; 
-			};
-		},
-	},
-
 	'uname' => {
 		'title' => 'POSIX::unae',
 		'description' => '',
@@ -56,18 +45,6 @@
 		},
 	},
 
-	# XXX This is the same as above - what happened to the other one !!!
-	'win32_registry2' => {
-		'title' => 'WIN32 Registry',
-		'description' => 'LMachine/System/CurrentControlSet/Services/VxD/MSTCP/Domain',
-		'exec' => sub {
-			return eval q{
-				use Win32::TieRegistry ( TiedHash => '%RegistryHash' );
-				$RegistryHash{'LMachine'}{'System'}{'CurrentControlSet'}{'Services'}{'VxD'}{'MSTCP'}{'Domain'}; 
-			};
-		},
-	},
-
 	'exec_hostname_fqdn' => {
 		'title' => 'Execute "hostname --fqdn"',
 		'description' => '',
@@ -171,12 +148,6 @@
 		} elsif ($^O eq 'IRIX') {	# XXX Patter match string !
 			$hostlong = dispatcher('exec_hostname');
 
-		} elsif ($^O eq 'cygwin') {
-			$hostlong = dispatcher('win32_registry1');
-
-		} elsif ($^O eq 'MSWin32') {
-			$hostlong = dispatcher('win32_registry2');
-
 		} elsif ($^O =~ m/(bsd|nto)/i) {
 			$hostlong = dispatcher('exec_hostname');