From 2c988882ddd3dea78a8806addc28efc65ab59c4a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 17 Sep 2013 11:19:53 +0100
Subject: [PATCH] ts-xen-build-prep: break out gb2pe

---
 ts-xen-build-prep | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ts-xen-build-prep b/ts-xen-build-prep
index 3174b752..4811205c 100755
--- a/ts-xen-build-prep
+++ b/ts-xen-build-prep
@@ -32,6 +32,11 @@ our ($vg);
 
 our $pe_size;
 
+sub gb2pe ($) {
+    my ($gb) = @_;
+    return $gb *1024.0*1024.0 / $pe_size;
+}
+
 sub lvextend_stage1 () {
     $vg=
         $ho->{Suite} =~ m/lenny/
@@ -71,7 +76,7 @@ sub lvextend1 ($$$) {
 
     my $do_limit_pe = sub { };
     if (defined $max_more_gb) {
-	my $max_more_pe = floor($max_more_gb *1024.0*1024.0 / $pe_size);
+	my $max_more_pe = floor(gb2pe($max_more_gb));
 	$do_limit_pe = sub {
 	    my ($pevar, $twhat) = @_;
 	    logm("$what: $twhat: limit ${max_more_gb}G,".
-- 
2.39.5