From 61b0cd36577df2a9f86cb2c08d14737f0bbcb557 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 23 Jul 2002 11:08:35 +0000
Subject: g Move 2: partition table: hierarchy

---
 perl-install/detect_devices.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index c8fbc762d..f53f4d750 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -160,8 +160,8 @@ sub isRemovableDrive { &isZipDrive || &isLS120Drive || $_[0]->{media_type} eq 'f
 
 sub isFloppyOrHD {
     my ($dev) = @_;
-    require partition_table_raw;
-    my $geom = partition_table_raw::get_geometry(devices::make($dev));
+    require partition_table::raw;
+    my $geom = partition_table::raw::get_geometry(devices::make($dev));
     $geom->{totalsectors} < 10 << 11 ? 'fd' : 'hd';
 }
 
-- 
cgit v1.2.1