Selon Klaus Steden <klaus.steden@xxxxxxxxxxx>:
> > Hi,
> >
> > I am getting a segfault error message on the F4 screen of the RHEL 4.2
> > AMD64 installer. Other than that I do not see any other errors. It
> just
> > bombs out and waits for user input to reboot. The following is a list
> of
> > modifications:
> >
> >
> >
> > 1. Created DVD-based installation disk with kickstart-based install
> > script. This works without modifications below.
> > 2. Added two packages. One custom package and KSH package taken from
> > Fedora Core 4.
> > 3. Executed genhdlist.
> >
> >
> >
> > Is the procedure for adding packages different for RHEL 4.2 than RHEL
> > 2.1? I noticed this version of RHEL comes with pdksh package, which
> could
> > conflict with the new ksh package; however, the installation bombs out
> > without the ksh package too.
> >
> >
> >
> > I think perhaps the genhdlist is not working well or there is something
> > else I have to do. Any help greatly appreciated.
> >
> Hello Chris,
>
> I've run into something like this before ... make sure the packages you add
> have filenames consistent with their internal package names. Anaconda isn't
> smart enough to tell that 'foo.rpm' and 'foo-1.2rc.rpm' are the same thing.
If that may help, I wrote this small Perl script that takes care of
renaming RPM files that don't have the expected names (like Sun JDK):
---[begin: pkg-rename.pl]---
#!/usr/bin/perl
use strict;
use File::Spec;
use RPM::Perlonly; # pure Perl clone of RPM::Info
die "usage: $0 <rpms directory>\n",
" check the rpms located in the directory given in argument\n",
" and rename them correctly if necessary\n"
unless @ARGV and @ARGV==1;
my($rpms_dir) = @ARGV;
# check that the given arguments exist
-d $rpms_dir or die "No such directory: $rpms_dir\n";
opendir(DIR, $rpms_dir) or die "can't read directory '$rpms_dir': $!";
my @dir = grep /\.rpm$/, readdir(DIR);
closedir(DIR);
for my $file (@dir) {
my $path = File::Spec->catfile($rpms_dir, $file);
tie my %header, "RPM::Perlonly", $path or next;
my $new_name = sprintf "%s-%s-%s.%s.rpm", @header{qw(NAME VERSION RELEASE
ARCH)};
if($file ne $new_name) {
print " $file --> $new_name\n";
rename($path, File::Spec->catfile($rpms_dir, $new_name))
or warn "can't rename '$file' to '$new_name': $!";
}
untie %header;
}
---[end]---
--
Sébastien Aperghis-Tramoni
Close the world, txEn eht nepO.
