-Fix strict compliance issue in xcatd, add warnings check to xcatd
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1908 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
a02706be0a
commit
5474d28875
@ -1,5 +1,7 @@
|
||||
#!/usr/bin/env perl
|
||||
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||||
use strict;
|
||||
use warnings;
|
||||
use Carp;
|
||||
BEGIN
|
||||
{
|
||||
@ -11,7 +13,7 @@ use xCAT::Utils;
|
||||
use File::Path;
|
||||
use Time::HiRes qw(sleep);
|
||||
use Thread qw(yield);
|
||||
use xCAT::Client submit_request;
|
||||
use xCAT::Client qw(submit_request);
|
||||
my $clientselect = new IO::Select;
|
||||
my $sslclients = 0; #THROTTLE
|
||||
my $maxsslclients = 16; #default
|
||||
@ -63,7 +65,6 @@ Getopt::Long::Configure("pass_through");
|
||||
|
||||
use Storable qw(dclone);
|
||||
use POSIX qw(WNOHANG setsid);
|
||||
use strict;
|
||||
my $pidfile;
|
||||
my $foreground;
|
||||
GetOptions(
|
||||
|
Loading…
Reference in New Issue
Block a user