diff --git a/Doc/tools/node2label.pl b/Doc/tools/node2label.pl
index a3c6c84a89e..6491b204822 100755
--- a/Doc/tools/node2label.pl
+++ b/Doc/tools/node2label.pl
@@ -49,7 +49,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) {