diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-18 12:30:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-18 12:30:17 +0000 |
| commit | 473b5b8333cb42627bc83af4782f72be81d971cf (patch) | |
| tree | a6bd472600b5fc1543f36aae43ceaba529c16efa /perl-install/partition_table/raw.pm | |
| parent | f110caf7fb05213848c2d48fc4802b7d6babbed3 (diff) | |
| download | drakx-473b5b8333cb42627bc83af4782f72be81d971cf.tar drakx-473b5b8333cb42627bc83af4782f72be81d971cf.tar.gz drakx-473b5b8333cb42627bc83af4782f72be81d971cf.tar.bz2 drakx-473b5b8333cb42627bc83af4782f72be81d971cf.tar.xz drakx-473b5b8333cb42627bc83af4782f72be81d971cf.zip | |
rename partition_table::raw::clear() into partition_table::initialize()
Diffstat (limited to 'perl-install/partition_table/raw.pm')
| -rw-r--r-- | perl-install/partition_table/raw.pm | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm index 95317cf72..096e36ccd 100644 --- a/perl-install/partition_table/raw.pm +++ b/perl-install/partition_table/raw.pm @@ -215,22 +215,7 @@ sub default_type { $type; } -sub zero_MBR { &clear } #- deprecated -sub clear { - my ($hd, $o_type) = @_; - - my $type = $o_type || default_type(); - - require "partition_table/$type.pm"; - "partition_table::$type"->initialize($hd); - - delete $hd->{extended}; - if (detect_devices::is_xbox()) { - my $part = { start => 1, size => 15632048, pt_type => 0x0bf, isFormatted => 1 }; - partition_table::dos::compute_CHS($hd, $part); - $hd->{primary}{raw}[0] = $part; - } -} +sub zero_MBR { &partition_table::initialize } #- deprecated sub clear_existing { my ($hd) = @_; @@ -242,7 +227,7 @@ sub zero_MBR_and_dirty { &clear_and_dirty } #- deprecated sub clear_and_dirty { my ($hd) = @_; $hd->clear_existing; - clear($hd); + partition_table::initialize($hd); } sub read_primary { |