[8028] update _register_label call site

[gavinsmith0123]

Revision: 8028
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8028
Author:   gavin
Date:     2018-08-09 09:03:51 -0400 (Thu, 09 Aug 2018)
Log Message:
-----------
update _register_label call site

Modified Paths:
--------------
    trunk/Pod-Simple-Texinfo/pod2texi.pl

Modified: trunk/Pod-Simple-Texinfo/pod2texi.pl
===================================================================
--- trunk/Pod-Simple-Texinfo/pod2texi.pl        2018-08-09 13:01:28 UTC (rev 
8027)
+++ trunk/Pod-Simple-Texinfo/pod2texi.pl        2018-08-09 13:03:51 UTC (rev 
8028)
@@ -1,7 +1,8 @@
 #! /usr/bin/env perl
 # $Id$
 # pod2texi -- convert Pod to Texinfo.
-# Copyright 2012, 2013, 2014, 2015, 2016 Free Software Foundation, Inc.
+# Copyright 2012, 2013, 2014, 2015, 2016, 2017, 2018 Free Software Foundation, 
+# Inc.
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -282,8 +283,7 @@
           my $parsed_node = Texinfo::Parser::_parse_node_manual($node_arg);
           #push @{$node->{'extra'}->{'nodes_manuals'}}, $parsed_node;
           @{$node->{'extra'}->{'nodes_manuals'}} = ($parsed_node);
-          if (!Texinfo::Parser::_register_label($parser, $node, $parsed_node, 
undef)) {
-            print STDERR "BUG: node not unique, register failed:  
$parsed_node->{'normalized'}\n";
+          Texinfo::Parser::_register_label($parser, $node, $parsed_node);
           }
         }
       }