diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-25 12:50:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-25 12:50:45 +0000 |
| commit | 16a626a8e859ec223ea53402fb8605cb8af13ee8 (patch) | |
| tree | e49eac9538cdca1dce3dd85bb0592ccd77f596a0 /perl-install/standalone | |
| parent | 5a5087ff7433c10afeaea73e337071880dd1f658 (diff) | |
| download | drakx-16a626a8e859ec223ea53402fb8605cb8af13ee8.tar drakx-16a626a8e859ec223ea53402fb8605cb8af13ee8.tar.gz drakx-16a626a8e859ec223ea53402fb8605cb8af13ee8.tar.bz2 drakx-16a626a8e859ec223ea53402fb8605cb8af13ee8.tar.xz drakx-16a626a8e859ec223ea53402fb8605cb8af13ee8.zip | |
use fs::get::device2part()
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index 77d30bedc..fd4011966 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -83,9 +83,8 @@ $all_hds->{current_fstab} = fs::fstab_to_string($all_hds, ''); if ($type eq 'list-hd') { print partition_table::description($_), "\n" foreach fs::get::fstab($all_hds); } elsif ($type eq 'change-geometry') { - $para =~ s|^/dev/||; my ($device, undef, $heads, $sectors) = $para =~ /(.+)=(\d+,)?(\d+),(\d+)$/ or die "usage: diskdrake --change-geometry=<device>=[<cylinders>,]<heads>,<sectors>\n"; - my $hd = find { $_->{device} eq $device } @{$all_hds->{hds}}; + my $hd = fs::get::device2part($device, $all_hds->{hds}); put_in_hash($hd->{geom}, { heads => $heads, sectors => $sectors }); $hd->{isDirty} = 1; partition_table::write($hd); |