initialize rc var in Table.pm and tabutils.pm to remove warnings when running xcatd in foreground

This commit is contained in:
mellor 2014-11-19 17:34:04 -05:00
parent 28d2110a5e
commit afe37ebeab
2 changed files with 2 additions and 2 deletions

View File

@ -3837,7 +3837,7 @@ sub writeAllEntries
}
my $filename = shift;
my $fh;
my $rc;
my $rc = 0;
# open the file for write
unless (open($fh," > $filename")) {
my $msg="Unable to open $filename for write \n.";

View File

@ -740,7 +740,7 @@ sub tabdump
output_table($table,$cb,$tabh,$recs);
} else { # dump to file
my $rc1;
my $rc1 = 0;
my $fh;
# check to see if you can open the file
unless (open($fh," > $FILENAME")) {