From f27df54eeedf0be8c6094231e386d8b145b64161 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 3 Mar 2001 19:18:12 +0000
Subject: (make): better caller in error

---
 perl-install/devices.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 3ea25bc5e..84d112b5b 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -132,7 +132,8 @@ sub make($) {
     }
     -e $file and return $file; #- assume nobody takes fun at creating files named as device
 
-    my ($type, $major, $minor) = entry($_);
+    my ($type, $major, $minor) = eval { entry($_) };
+    $@ and die "unknown device $_ (caller is " . join(":", caller()) . ")";
 
     #- make a directory for this inode if needed.
     mkdir dirname($file), 0755;
-- 
cgit v1.2.1