diff options
author | Adam Muhle <armuhle@us.ibm.com> | 2011-08-15 11:39:55 -0500 |
---|---|---|
committer | A. Patrick Williams III <iawillia@us.ibm.com> | 2011-08-16 08:04:53 -0500 |
commit | ab9e15e2e44eb52d4d0aa3602498a62db0cc0c37 (patch) | |
tree | 9df07b82a97f8fac63506e938493941332aca90b /src/build | |
parent | 5b4ea4d127be9898ae1aada5df6b06e67ec47086 (diff) | |
download | talos-hostboot-ab9e15e2e44eb52d4d0aa3602498a62db0cc0c37.tar.gz talos-hostboot-ab9e15e2e44eb52d4d0aa3602498a62db0cc0c37.zip |
update mkpnortoc.pl to handle new XML text node name (#text) in perl 5.10.1 and newer
Change-Id: Ib8cfd322dbeed97cb68850c8f59833d4e1000919
Reviewed-on: http://gfw160.austin.ibm.com:8080/gerrit/256
Tested-by: Jenkins Server
Reviewed-by: Daniel M. Crowell <dcrowell@us.ibm.com>
Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>
Diffstat (limited to 'src/build')
-rwxr-xr-x | src/build/tocgen/mkpnortoc.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/build/tocgen/mkpnortoc.pl b/src/build/tocgen/mkpnortoc.pl index 5a3d95d15..f4e5464f5 100755 --- a/src/build/tocgen/mkpnortoc.pl +++ b/src/build/tocgen/mkpnortoc.pl @@ -13,7 +13,7 @@ use XML::LibXML; use File::Basename; my $programName = File::Basename::basename $0; -my $g_trace = 0; # 1 -> enable traces +my $g_trace = 0; # >0 enable traces $tocDataFile = ""; $tocOutFile = ""; @@ -163,9 +163,10 @@ sub parseTocEntry { last; } - elsif($curSibling->nodeName eq "text") + elsif(($curSibling->nodeName eq "text") || + ($curSibling->nodeName eq "#text")) { - #print "skipping ".$curSibling->nodeName."\n"; + trace(1, "ignoring ".$curSibling->nodeName); } elsif($curSibling->nodeName eq "length") { @@ -174,6 +175,7 @@ sub parseTocEntry } else { + trace(1, "Parsing ".$curSibling->nodeName); $fieldLen = writeElementToBinFile($i_FILEHANDLE, $curSibling); $sumFieldLen = $sumFieldLen + $fieldLen; |