diff options
-rwxr-xr-x | src/import/hwpf/fapi2/tools/parseErrorInfo.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/import/hwpf/fapi2/tools/parseErrorInfo.pl b/src/import/hwpf/fapi2/tools/parseErrorInfo.pl index 67da0a679..768a8b101 100755 --- a/src/import/hwpf/fapi2/tools/parseErrorInfo.pl +++ b/src/import/hwpf/fapi2/tools/parseErrorInfo.pl @@ -727,7 +727,7 @@ foreach my $argnum ( 0 .. $#ARGV ) @elements[$i] =~ s/^\s+|\s+$//g; addFfdcMethod( \%methods, @elements[$i], $err->{rc}, $ffdc_type, $objNum ); - $collectFfdc .= "@elements[$i]" + $collectFfdc .= "@elements[$i]"; } @@ -751,11 +751,13 @@ foreach my $argnum ( 0 .. $#ARGV ) # assign the tempRc with newly added ffdc back to the passed in RC $collectFfdcStr .= "\tRC = tempRc; \\\n"; - - print EIFILE "\\\n{ \\\n$collectFfdcStr \\\n}"; - } #end collectFfdc tag + if ( defined $collectFfdcStr ) + { + print EIFILE "\\\n{ \\\n$collectFfdcStr}"; + } + print EIFILE "\n"; #---------------------------------------------------------------------- |