From cd17c3d798ab3eec0f0946aa2c2d8bb86aa3c9b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Mar 2001 12:21:26 +0000
Subject: (dev2grub): better error reporting

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/bootloader.pm')

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)) . ")";
 }
-- 
cgit v1.2.1