summaryrefslogtreecommitdiffstats
path: root/perl-install/devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-09 14:30:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-09 14:30:01 +0000
commitb6e99ec390c9143f3ab7b10c9e96a741c87ede86 (patch)
tree11dbba75a2854300e4d4c26d4ab66e2b624a792e /perl-install/devices.pm
parenteaab7cc1260043e18b6697756a19d7331055f589 (diff)
downloaddrakx-backup-do-not-use-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar
drakx-backup-do-not-use-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar.gz
drakx-backup-do-not-use-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar.bz2
drakx-backup-do-not-use-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.tar.xz
drakx-backup-do-not-use-b6e99ec390c9143f3ab7b10c9e96a741c87ede86.zip
no_comment
Diffstat (limited to 'perl-install/devices.pm')
-rw-r--r--perl-install/devices.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 2a0c048a4..c1a9bdaee 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -63,7 +63,7 @@ sub entry {
'c' => [22,0], 'd' => [22,64],
'e' => [33,0], 'f' => [33,64],
'g' => [34,0], 'h' => [34,64],
- }}{$1} or die "unknown device $_ (caller is " . caller . ")" };
+ }}{$1} or die "unknown device $_" };
$minor += $2 || 0;
} elsif (/^ram(.*)/) {
$type = c::S_IFBLK();
@@ -114,7 +114,7 @@ sub entry {
# "usbmouse"=> [ c::S_IFCHR(), 10, 32], #- aka hidbp-mse-0
"usbmouse"=> [ c::S_IFCHR(), 13, 32], #- aka /dev/usb/usbmouse0
"zero" => [ c::S_IFCHR(), 1, 5 ],
- }}{$_} or die "unknown device $_" };
+ }}{$_} or die "unknown device $_ (caller is " . join(":", caller()) . ")" };
}
($type, $major, $minor);
}