diff options
Diffstat (limited to 'net-misc/nxserver-2xterminalserver/files/1.5.0/nxserver-2xterminalserver-1.5.0-perl.patch')
-rw-r--r-- | net-misc/nxserver-2xterminalserver/files/1.5.0/nxserver-2xterminalserver-1.5.0-perl.patch | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/net-misc/nxserver-2xterminalserver/files/1.5.0/nxserver-2xterminalserver-1.5.0-perl.patch b/net-misc/nxserver-2xterminalserver/files/1.5.0/nxserver-2xterminalserver-1.5.0-perl.patch new file mode 100644 index 0000000..e16b526 --- /dev/null +++ b/net-misc/nxserver-2xterminalserver/files/1.5.0/nxserver-2xterminalserver-1.5.0-perl.patch @@ -0,0 +1,32 @@ +diff -Naur server/nxnode/src.orig/functions.pl server/nxnode/src/functions.pl +--- server/nxnode/src.orig/functions.pl 2007-04-18 23:59:08.000000000 +0200 ++++ server/nxnode/src/functions.pl 2007-04-19 00:03:28.000000000 +0200 +@@ -423,17 +423,14 @@ + } + + sub get_unique_id { +- my $now; +- $::TIMEVAL_T = "LL"; +- $now = pack($::TIMEVAL_T, ()); ++ my $now = gettimeofday; + +- if (syscall(&SYS_gettimeofday, $now, 0) == -1) { ++ if ($now == -1) { + NXMsg::send_response("internal_server_error", "", ": cannot get time of day"); + log_msg("cannot get time of day", $::LOG_ERR, 0); + handle_command ('exit'); + } + +- my @now2 = unpack($::TIMEVAL_T, $now); + my @command = ("ps","-e"); + my @parameters = (); + my ($cmd_err, $cmd_out, $exit_value) = ::run_command (\@command, \@parameters); +diff -Naur server/nxnode/src.orig/nxshell.pl server/nxnode/src/nxshell.pl +--- server/nxnode/src.orig/nxshell.pl 2007-04-18 23:59:08.000000000 +0200 ++++ server/nxnode/src/nxshell.pl 2007-04-19 00:03:50.000000000 +0200 +@@ -36,4 +36,4 @@ + use Socket; + #undef $ENV{'LANG'}; + +-require 'sys/syscall.ph'; ++use Time::HiRes qw(gettimeofday); |