From a655b0e1e07efb3fd057f726b85887908d970ba6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 10 Jun 2005 07:38:18 +0000 Subject: - move functions using /proc/partitions out of fsedit to fs::proc_partitions - remove unneeded "use xxx" - add some "use xxx" (nb: not completly needed because some other modules may do it) --- perl-install/detect_devices.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 15f671670..fad553daf 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -369,7 +369,7 @@ sub getIDE() { sub block_devices() { -d '/sys/block' ? map { s|!|/|; $_ } all('/sys/block') - : map { $_->{dev} } devices::read_proc_partitions_raw(); + : map { $_->{dev} } do { require fs::proc_partitions; fs::proc_partitions::read_raw() }; } sub getCompaqSmartArray() { -- cgit v1.2.1