summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-08 12:21:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-08 12:21:26 +0000
commitcd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1 (patch)
treedadc372786f925143f07da340d4bb95be4bdf998 /perl-install
parent8c412dc060f08f6fff270fe2e8de27324adadf3f (diff)
downloaddrakx-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.pm2
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)) . ")";
}