Send only \n rather than \r\n to agent socket when sending cmdline

to system VMS

BUG-ID: CLOUDSTACK-1732
Signed-off-by: Marcus Sorensen <marcus@betterservers.com> 1365622030 -0600
This commit is contained in:
Marcus Sorensen 2013-04-10 13:27:10 -06:00
parent 09542ce70a
commit f66b9b570f

View File

@ -53,6 +53,6 @@ my $msg = "pubkey:" . $key . "\ncmdline:" . $cmdline;
my $socket = IO::Socket::UNIX->new(Peer=>$sockfile,Type=>SOCK_STREAM) my $socket = IO::Socket::UNIX->new(Peer=>$sockfile,Type=>SOCK_STREAM)
or die "ERROR: unable to connect to $sockfile - $^E\n"; or die "ERROR: unable to connect to $sockfile - $^E\n";
print $socket "$msg\r\n"; print $socket "$msg\n";
close $socket; close $socket;