Duplicate variable use in Texinfo/ManipulateTree.pm

[Gavin Smith]

When I run the texi2any test suite with TEXINFO_XS=omit, there is
a warning printed:

"my" variable $current_nr masks earlier declaration in same scope at 
t//../../perl/Texinfo/ManipulateTree.pm line 839.

This is presumably a bug.  Here is the relevant part of the code:


sub print_element_details($$$$;$$)
{
  my $element = shift;
  my $level = shift;
  my $prepended = shift;
  my $current_nr = shift;
  my $fname_encoding = shift;
  my $use_filename = shift;

  my ($current_nr, $result)
      = print_element_base($element, $level, $prepended,
                           $fname_encoding, $use_filename);