Backport Neal Norwitz's patch from revision 1.14:

Don't screw up the names of the nodes we're looking up.

This fixes two SF bugs:
217195 - Broken \ref link in documentation
484967 - bad links at Ref Guide

diff --git a/Doc/tools/node2label.pl b/Doc/tools/node2label.pl
index 90f0c18933a5e4e0ce829a6741064f727c7e13e9..d9d08159acc7644381815a4a7e2a2dbb346041ef 100755 (executable)
--- a/Doc/tools/node2label.pl
+++ b/Doc/tools/node2label.pl
@@ -44,7 +44,7 @@ while (<>) {
     shift @parts;
     for $node (@parts) {
       $node =~ s/[\#\"\'].*$//g;
-      chop($node);
+      chomp($node);
       if (defined($nodes{$node})) {
        $label = $nodes{$node};
        if (s/(HREF|href)=([\"\'])$node([\#\"\'])/href=$2$label.html$3/g) {