From 62a7841e3c62f2326c62131424a7ee59ae39db16 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 1 Jul 2005 06:13:03 +0000 Subject: better name --- perl-install/fsedit.pm | 2 +- perl-install/lvm.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index f17d5c151..71522fbff 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -84,7 +84,7 @@ sub lvms { my @lvms; foreach (@pvs) { - my $name = lvm::get_vg($_) or next; + my $name = lvm::pv_to_vg($_) or next; my $lvm = find { $_->{VG_name} eq $name } @lvms; if (!$lvm) { $lvm = new lvm($name); diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index 327fe8177..165caa3ef 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -63,7 +63,7 @@ sub check { 1; } -sub get_vg { +sub pv_to_vg { my ($part) = @_; my $dev = expand_symlinks(devices::make($part->{device})); run_program::get_stdout('lvm2', 'pvs', '--noheadings', '-o', 'vg_name', $dev) =~ /(\S+)/ && $1; -- cgit v1.2.1