From 144659654bb94d3b534dcd4c4116c49ce2b32bb8 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mageia.org>
Date: Sat, 7 Apr 2012 09:38:58 +0000
Subject: Fix a warning by defining init before using it

---
 perl-install/lvm.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index 6a6c250f9..e2eeb4cdc 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -29,8 +29,6 @@ sub cylinder_size {
     $hd->{extent_size};
 }
 
-init() or log::l("lvm::init failed");
-
 sub detect_during_install() {
     run_program::run('lvm2', 'vgscan');
     run_program::run('lvm2', 'vgchange', '-a', 'y');
@@ -42,6 +40,8 @@ sub init() {
     1;
 }
 
+init() or log::l("lvm::init failed");
+
 sub lvm_cmd {
     if (my $r = run_program::run('lvm2', @_)) {
 	$r;
-- 
cgit v1.2.1