[l2h] Problems with makeimage environment

[Daniel Rypl]

Recently I upgraded to RedHat 9 and since that time
I have problem to run latex2html on sources containing
makeimage environment just like in the following example

\documentclass[12pt]{article}

\pagestyle{empty}


\begin{document}

\begin{makeimage}
\begin{tabular}{|c|}
\hline
This is the only cell\\
\hline
\end{tabular}
\end{makeimage}

\end{document}

I tried latex2html versions 99.1, 2002 1.62 and 2002-2-1 1.70
all with the same perl error message:

panic: end_shift at /usr/bin/latex2html line 11653.

(except the line number, the presented one refers to latex2html
version 2002 1.62).

The crucial line is the line marked with tilde in the following
listing

sub do_env_makeimage {
     local($_) = @_;
     local($attribs, $border);
     s/^\s*//;
     if (s/$htmlborder_rx//o){$attribs=$2;$border=(($4)?"$4":1)}
     elsif (s/$htmlborder_pr_rx//o){$attribs=$2;$border=(($4)?"$4":1)}
 
~if(/^((\\begin\s*(($O|$OP)\d+($C|$CP))tex2html_deferred\3)?\\par(\\end(($O|$OP)\d+($C|$CP))tex2html_deferred\7)?\%?\s*\n)+$/s) 
{return("\n<BR>\n")}
     if (/^(\s\%?\n)+$/s) { return() }
     $_ = &process_undefined_environment($env, $id, $_);
     if (($border||($attributes))&&($HTML_VERSION > 2.1 ))
	{ $_ = &make_table( $border, $attribs, '', '', '', $_ ) }
     $_ . ((!$_=~/^\s*$/)? "\n<BR>\n" :'');
}


I also tried to extract the perl code of the above function and run
it separately with the same argument ($_) and global parameters 
($htmlborder_rx, etc) and the above error did not occur.

I am using perl version 5.8.0 (although when configuring latex2html
version 5.008 is reported; why?).

Is there a way out of that?

For completemess I am attaching the configuration file related
to the latex2html version 2002-2-1 1.70:

# LaTeX2HTML site specific configuration file
# generated by config.pl

# You may edit this file to get around deficiencies of the configuration
# procedure, but you have to be sure of what you are doing!
# If you think there are bugs in the configuration procedure, please report
# them. See the BUGS file on how to do it. Your help is appreciated!

package cfgcache;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(%cfg);

$cfg{'ANYTOPNM'} = q'/usr/bin/anytopnm';
$cfg{'BINDIR'} = q'/usr/local/bin';
$cfg{'BMPTOPPM'} = q'/usr/bin/bmptoppm';
$cfg{'CRAYOLAFILE'} = q'/usr/local/share/lib/latex2html/styles/crayola.txt';
$cfg{'DVIPS'} = q'/usr/bin/dvips';
$cfg{'DVIPSOPT'} = q' -Ppdf  -E';
$cfg{'GIFTOPNM'} = q'/usr/bin/giftopnm';
$cfg{'GS'} = q'/usr/bin/gs';
$cfg{'GSALIASDEVICE'} = q'ppmraw';
$cfg{'GSDEVICE'} = q'pnmraw';
$cfg{'GSLANDSCAPE'} = q'';
$cfg{'GS_LIB'} = q'/usr/share/ghostscript/7.05/lib';
$cfg{'HASHBANG'} = q'1';
$cfg{'HTML_VALIDATOR'} = q'';
$cfg{'ICONPATH'} = q'file:/usr/local/share/lib/latex2html/icons';
$cfg{'ICONSERVER'} = q'';
$cfg{'ICONSTORAGE'} = q'';
$cfg{'IMAGE_TYPES'} = q'png gif';
$cfg{'INITEX'} = q'/usr/bin/initex';
$cfg{'JPEGTOPNM'} = q'/usr/bin/jpegtopnm';
$cfg{'KPSEWHICH'} = q'/usr/bin/kpsewhich';
$cfg{'LATEX'} = q'/usr/bin/latex';
$cfg{'LATEX2HTMLDIR'} = q'/usr/local/share/lib/latex2html';
$cfg{'LATEX2HTMLPLATDIR'} = q'/usr/local/lib/latex2html';
$cfg{'LIBDIR'} = q'/usr/local/lib/latex2html';
$cfg{'METADPI'} = q'0';
$cfg{'METAMODE'} = q'';
$cfg{'MKTEXLSR'} = q'/usr/bin/mktexlsr';
$cfg{'NULLFILE'} = q'/dev/null';
$cfg{'PBMMAKE'} = q'/usr/bin/pbmmake';
$cfg{'PCXTOPPM'} = q'/usr/bin/pcxtoppm';
$cfg{'PERL'} = q'/usr/bin/perl';
$cfg{'PERLFOOTER'} = q'';
$cfg{'PERLHEADER'} = <<'EOQ';
#! /usr/bin/perl -w
EOQ

Thanks for any advice.

Dan