54 lines
1.6 KiB
Diff
54 lines
1.6 KiB
Diff
|
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');
|
||
|
|
|