diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-07-23 11:08:35 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-07-23 11:08:35 +0000 |
| commit | 61b0cd36577df2a9f86cb2c08d14737f0bbcb557 (patch) | |
| tree | 08dfd2ab02af6b7c7410158a531a95c2db7b3350 /perl-install/partition_table.pm | |
| parent | 6ed6b5341362f87e3c70420f206a33f71c72a3de (diff) | |
| download | drakx-61b0cd36577df2a9f86cb2c08d14737f0bbcb557.tar drakx-61b0cd36577df2a9f86cb2c08d14737f0bbcb557.tar.gz drakx-61b0cd36577df2a9f86cb2c08d14737f0bbcb557.tar.bz2 drakx-61b0cd36577df2a9f86cb2c08d14737f0bbcb557.tar.xz drakx-61b0cd36577df2a9f86cb2c08d14737f0bbcb557.zip | |
g Move 2: partition table: hierarchy
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 0c1fd482c..7452a70cb 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -12,7 +12,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @important_types @important_types2 @fie use common; -use partition_table_raw; +use partition_table::raw; use detect_devices; use log; @@ -462,8 +462,8 @@ sub read_one($$) { foreach ('empty', @parttype, 'lvm_PV', 'unknown') { /unknown/ and die "unknown partition table format on disk " . $hd->{file}; eval { - require("partition_table_$_.pm"); - bless $hd, "partition_table_$_"; + require("partition_table/$_.pm"); + bless $hd, "partition_table::$_"; ($pt, $info) = $hd->read($sector); log::l("found a $_ partition table on $hd->{file} at sector $sector"); }; @@ -486,7 +486,7 @@ sub read_one($$) { sub read($;$) { my ($hd, $clearall) = @_; if ($clearall) { - partition_table_raw::zero_MBR_and_dirty($hd); + partition_table::raw::zero_MBR_and_dirty($hd); return 1; } my $pt = read_one($hd, 0) or return 0; @@ -584,7 +584,7 @@ sub write { if ($hd->{needKernelReread} && ref($hd->{needKernelReread}) eq 'ARRAY' && $::isStandalone) { #- we've only been adding partitions. Try special add_partition (using BLKPG_ADD_PARTITION) local *F; - partition_table_raw::openit($hd, *F) or goto force_reread; + partition_table::raw::openit($hd, *F) or goto force_reread; foreach (@{$hd->{needKernelReread}}) { c::add_partition(fileno F, $_->{start}, $_->{size}, $_->{device} =~ /(\d+)$/) |