texi2any complains about %texi2dvi_formats

[Per Bothner]

$ /home/bothner/GNU/texinfo-cvs/+installed+/bin/texi2any --docbook 
test.texi
Global symbol "%texi2dvi_formats" requires explicit package name at 
/home/bothner/GNU/texinfo-cvs/+installed+/bin/texi2any line 10336.
Global symbol "%texi2dvi_formats" requires explicit package name at 
/home/bothner/GNU/texinfo-cvs/+installed+/bin/texi2any line 10570.
Global symbol "%texi2dvi_formats" requires explicit package name at 
/home/bothner/GNU/texinfo-cvs/+installed+/bin/texi2any line 10573.
BEGIN not safe after errors--compilation aborted at 
/home/bothner/GNU/texinfo-cvs/+installed+/bin/texi2any line 10591.

I was able to work around it with the attached "patch" to texi2any.
--
        --Per Bothner
p...@bothner.com   http://per.bothner.com/
--- texi2any~   2010-10-26 08:07:25.769995496 -0700
+++ texi2any    2010-10-26 08:24:54.588119961 -0700
@@ -10333,11 +10333,11 @@
   $null_device_file{'NUL'} = 1;
 }
 
-%texi2dvi_formats = (
- 'dvi' => 1,
- 'pdf' => 1,
- 'ps' => 1
-);
+#%texi2dvi_formats = (
+# 'dvi' => 1,
+# 'pdf' => 1,
+# 'ps' => 1
+#);
 
 $finish_out    = \&t2h_default_finish_out;
 $translate_names = \&t2h_default_translate_names;
@@ -10567,10 +10567,12 @@
 {
   my $format = shift;
   my $from_command_line = shift;
-  if (defined($t2h_default_formats_load_table{$format}) or 
$texi2dvi_formats{$format})
+#  if (defined($t2h_default_formats_load_table{$format}) or 
$texi2dvi_formats{$format})
+  if (defined($t2h_default_formats_load_table{$format}))
   {
      $OUTPUT_FORMAT = $format;
-     &{$t2h_default_formats_load_table{$format}}($from_command_line) unless 
($texi2dvi_formats{$format});
+#     &{$t2h_default_formats_load_table{$format}}($from_command_line) unless 
($texi2dvi_formats{$format});
+     &{$t2h_default_formats_load_table{$format}}($from_command_line);
      $Texi2HTML::THISDOC{'format_from_command_line'} = $format if 
($from_command_line);
      return 1;
   }