arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cleaned up warnings generated from "perl -Wc"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1545 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-06-02 13:31:34 +00:00
parent 76a126cfad
commit 5310f0d57e
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
perl-xCAT-2.0/xCAT/PPCfsp.pm
View File

@ -362,8 +362,8 @@ sub powercmd {
##################################
# Send command
##################################
my $request = $form->click( $button );
$res = $ua->request( $request );
my $data = $form->click( $button );
$res = $ua->request( $data );
##################################
# Return error
@ -507,8 +507,8 @@ sub clear {
##################################
# Send Clear to JavaScript
##################################
my $request = $form->click( 'clear' );
$res = $ua->request( $request );
my $data = $form->click( 'clear' );
$res = $ua->request( $data );
if ( !$res->is_success() ) {
return( [RC_ERROR,$res->status_line] );
@ -611,9 +611,9 @@ sub time {
##############################
# Send command
##############################
my $result = xCAT::PPCfsp::timeofday( $exp, $request, $id, \@t );
my $Rc = shift(@$result);
return( [$Rc,"Time: @$result[0]"] );
my $time = xCAT::PPCfsp::timeofday( $exp, $request, $id, \@t );
$Rc = shift(@$time);
return( [$Rc,"Time: @$time[0]"] );
}
@ -658,10 +658,9 @@ sub date {
##############################
# Send command
##############################
my $result = xCAT::PPCfsp::timeofday( $exp, $request, $id, \@t );
my $Rc = shift(@$result);
return( [$Rc,"Date: @$result[0]"] );
my $date = xCAT::PPCfsp::timeofday( $exp, $request, $id, \@t );
$Rc = shift(@$date);
return( [$Rc,"Date: @$date[0]"] );
}
@ -723,7 +722,7 @@ sub timeofday {
######################################
# Set time/date
######################################
my $res = $ua->post( "https://$server/cgi-bin/cgi",
$res = $ua->post( "https://$server/cgi-bin/cgi",
[ form => $id,
mo => @$d[0],
d => @$d[1],
@ -949,8 +948,8 @@ sub writedecfg {
######################################
# Send command
######################################
my $request = $form->click( "submit" );
$res = $ua->request( $request );
my $data = $form->click( "submit" );
$res = $ua->request( $data );
######################################
# Return error
@ -984,7 +983,7 @@ sub writedecfg {
}
my @units = split /<thead align=left><tr><th>/, $res->content;
shift(@units);
my $html;
$html = undef;
######################################
# Break into unit types
@ -1065,8 +1064,8 @@ sub writedecfg {
##################################
# Send command
##################################
my $request = $form->click( "submit" );
$res = $ua->request( $request );
$data = $form->click( "submit" );
$res = $ua->request( $data );
##################################
# Return error
@ -1138,7 +1137,7 @@ sub readdecfg {
##################################
# Select radio button
##################################
my $value = ( ref($_) eq 'HASH' ) ? %$_->{value} : $_;
my $value = ( ref($_) eq 'HASH' ) ? %{$_->{value}} : $_;
$radio->value( $value );
##################################
@ -1328,7 +1327,7 @@ sub decfg {
my @inputs = $form->inputs();
my (@hidden) = grep( $_->{type} eq "hidden", @inputs );
if ( !defined( @hidden )) {
if ( !@hidden ) {
return( [RC_ERROR,"<input type='hidden'> not found"] );
}
######################################
@ -1355,8 +1354,8 @@ sub decfg {
######################################
# Send command
######################################
my $request = $form->click( "submit" );
$res = $ua->request( $request );
my $data = $form->click( "submit" );
$res = $ua->request( $data );
######################################
# Return error
@ -1562,3 +1561,4 @@ sub all_clear {