diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-13 04:33:50 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-13 04:33:50 +0000 |
commit | 967d8ec6e7be57b1cdfc4ff1538044bc07b4db53 (patch) | |
tree | 9058f29a529d3b7a9ef15cc0cd5624c0f2f5396f | |
parent | 4b962e51805bd35269788b7e7fb96b84635651c8 (diff) | |
download | drakx-backup-do-not-use-967d8ec6e7be57b1cdfc4ff1538044bc07b4db53.tar drakx-backup-do-not-use-967d8ec6e7be57b1cdfc4ff1538044bc07b4db53.tar.gz drakx-backup-do-not-use-967d8ec6e7be57b1cdfc4ff1538044bc07b4db53.tar.bz2 drakx-backup-do-not-use-967d8ec6e7be57b1cdfc4ff1538044bc07b4db53.tar.xz drakx-backup-do-not-use-967d8ec6e7be57b1cdfc4ff1538044bc07b4db53.zip |
move functions using /proc/partitions out of fsedit to fs::proc_partitions
-rwxr-xr-x | rescue/guessmounts | 4 | ||||
-rwxr-xr-x | rescue/lsparts | 4 | ||||
-rwxr-xr-x | rescue/restore_ms_boot | 6 |
3 files changed, 9 insertions, 5 deletions
diff --git a/rescue/guessmounts b/rescue/guessmounts index 76aff3b4c..3f3a4e208 100755 --- a/rescue/guessmounts +++ b/rescue/guessmounts @@ -15,7 +15,7 @@ use lib qw(../perl-install /usr/lib/libDrakX); use common; use fs; - +use fs::proc_partitions; my @proc_mounts = fs::read_fstab('', '/proc/mounts'); @@ -36,7 +36,7 @@ mkdir_p($target); my @fstab; my $root; -foreach (devices::read_proc_partitions_raw()) { +foreach (fs::proc_partitions::read_raw()) { my $dev = devices::make($_->{dev}); my $fs = find { diff --git a/rescue/lsparts b/rescue/lsparts index 8dff460d2..9f0fac925 100755 --- a/rescue/lsparts +++ b/rescue/lsparts @@ -18,8 +18,8 @@ use lib qw(../perl-install /usr/lib/libDrakX); use common; -use devices; use fs::type; +use fs::proc_partitions; my $params = join '', @ARGV; my $verbose = $params =~ /-v/; @@ -27,7 +27,7 @@ my $verbose = $params =~ /-v/; $params =~ /-h/ and die "usage: lsparts [-v]\n"; -foreach (devices::read_proc_partitions_raw()) { +foreach (fs::proc_partitions::read_raw()) { if (my $err = $_->{size} <= 1 ? "Skipping <$_->{dev}> because too little blocks ($_->{size})" : $_->{dev} !~ /\d$/ ? diff --git a/rescue/restore_ms_boot b/rescue/restore_ms_boot index c9eaf550e..b31fd112e 100755 --- a/rescue/restore_ms_boot +++ b/rescue/restore_ms_boot @@ -16,12 +16,13 @@ use lib qw(../perl-install /usr/lib/libDrakX); use common; use bootloader; use fs; +use fs::proc_partitions; my @choices = map { my $type = typeFromMagic(devices::make($_->{dev})); if_($type && member($type, bootloader::main_method_choices()) , [ $_->{dev}, $type ]); -} devices::read_proc_partitions_raw(); +} fs::proc_partitions::read_raw(); my $choice; @@ -54,6 +55,9 @@ Ok? <press Enter to continue, 'n' and Enter to cancel> "; #------------------------------------------------- #- $Log$ +#- Revision 1.5 2005/06/13 04:33:50 prigaux +#- move functions using /proc/partitions out of fsedit to fs::proc_partitions +#- #- Revision 1.4 2005/05/19 08:59:54 prigaux #- rewrite using DrakX modules #- |