diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-08 12:21:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-08 12:21:26 +0000 |
| commit | cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1 (patch) | |
| tree | dadc372786f925143f07da340d4bb95be4bdf998 /perl-install | |
| parent | 8c412dc060f08f6fff270fe2e8de27324adadf3f (diff) | |
| download | drakx-backup-do-not-use-cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1.tar drakx-backup-do-not-use-cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1.tar.gz drakx-backup-do-not-use-cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1.tar.bz2 drakx-backup-do-not-use-cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1.tar.xz drakx-backup-do-not-use-cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1.zip | |
(dev2grub): better error reporting
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index efa42ac81..9b5b9bc76 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -670,7 +670,7 @@ sub dev2bios { sub dev2grub { my ($dev, $dev2bios) = @_; - $dev =~ m|^(/dev/)?(...)(.*)$| or die "dev2grub"; + $dev =~ m|^(/dev/)?(...)(.*)$| or die "dev2grub (bad device $dev), caller is " . join(":", caller()); my $grub = $dev2bios->{$2} or die "dev2grub ($2)"; "($grub" . ($3 && "," . ($3 - 1)) . ")"; } |