perl seg faults

[Robert Fausey]

On a system with a fresh install of 8.0 I get a segmentation fault with
the following perl

#!/usr/bin/perl

@current_rpms = `rpm -qa`;

foreach $rpm ( @current_rpms ) {
   chomp $rpm;
   @words = split( /-[0-9]/, $rpm );
   $RPMdb{ $words[0] } = $words[0];

}

BUT on a system that has been upgraded to 8.0 the script runs.  I used
the same CDs on both systems and the CDs verifited.


Rob Fausey.