Description of problem:
The function report_tags in the Perl module HTML::Parser does not give
the right result when using the current
perl-HTML-Parser-3.26-18.i386.rpm package which apparantly was
compiled against an earlier version of Perl. (Among other things, this
causes the Perl function, HTML::Form->Parse to fail).

It appears that the problem is due to a binary incompatibility between
Perl 5.8.0 and 5.8.1 caused by the introduction of hash randomization
in Perl 5.8.1. (Note that the report_tags function is defined as an 
HV*).

The solution is to simply rebuild the src rpm under Fedora Core 1/Perl
5.8.1.

I am not sure if this binary incompatibility between Perl 5.8.0 and
5.8.1 affects any other Perl modules, but it might be a good idea to
check this out and see whether any of the other Perl packages need to
be rebuilt for Fedora Core 1.

Version-Release number of selected component (if applicable):
perl-HTML-Parser-3.26-18

How reproducible:


Steps to Reproduce:
To reproduce, try the following short perl script:

#! /usr/bin/perl -w

use HTML::Form;
use HTTP::Request;
use LWP;
use Data::Dumper;

my $ua = LWP::UserAgent->new;
my $uri="http://www.google.com";
my $req = HTTP::Request->new(GET => $uri);
my $res = $ua->request($req);

my $form = HTML::Form->parse($res->content, $res->base());
print Dumper($form);

Actual results:

When run under FC1/Perl 5.8.1 without a rebuild, the script does 
not 'dump' the form and instead returns:
   $VAR1 = undef; 

Expected results:

The above script prints out the form properly in RH8.0/Perl 5.8.0 
(and in FC1/Perl 5.8.1 after rebuild):

$VAR1 = bless( {
                 'extra_attr' => {
                                   'name' => 'f'
                                 },
                 'enctype' => 'application/x-www-form-urlencoded',
                 'action' => bless( do{\(my $o = 'http://www.google.co
+m/search')}, 'URI::http' ),
                 'method' => 'GET',
                 'inputs' => [
                               bless( {
                                        'value' => 'en',
                                        'name' => 'hl',
                                        'type' => 'hidden'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'value' => 'ISO-8859-1',
                                        'name' => 'ie',
                                        'type' => 'hidden'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'maxlength' => '256',
                                        'value' => '',
                                        'name' => 'q',
                                        'type' => 'text',
                                        'size' => '55'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'value' => 'Google Search',
                                        'name' => 'btnG',
                                        'type' => 'submit'
                                      }, 'HTML::Form::SubmitInput' ),
                               bless( {
                                        'value' => 'I\'m Feeling Lucky
+',
                                        'name' => 'btnI',
                                        'type' => 'submit'
                                      }, 'HTML::Form::SubmitInput' )
                             ]
               }, 'HTML::Form' );

Additional info:

None