From d661dca0e2ca9afa97c82a111bfad5921fa881bc Mon Sep 17 00:00:00 2001 From: jbjohnso Date: Mon, 1 Feb 2010 14:11:02 +0000 Subject: [PATCH] -Fix errors in esx plugin git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5099 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- xCAT-server/lib/xcat/plugins/esx.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/xCAT-server/lib/xcat/plugins/esx.pm b/xCAT-server/lib/xcat/plugins/esx.pm index 2682f2a48..7085b8414 100644 --- a/xCAT-server/lib/xcat/plugins/esx.pm +++ b/xCAT-server/lib/xcat/plugins/esx.pm @@ -1185,7 +1185,7 @@ sub getcfgdatastore { #DONE: I believe the regex after this conditional takes care of that case already.. } (my $method,my $location) = split /:\/\//,$cfgdatastore,2; - (my $server,my $path = split/\//,$location,2; + (my $server,my $path) = split/\//,$location,2; $server =~ s/:$//; #tolerate habitual colons my $servern = inet_aton($server); unless ($servern) { @@ -1371,8 +1371,8 @@ sub create_storage_devs { unless (scalar @sizes) { @sizes = ($disksize); } #if we emptied the array, stick the last entry back on to allow it to specify all remaining disks $disksize = getUnits($disksize,'G',1024); $storeloc =~ s/\/$//; - (my $method,my $location) = split /:\/\//,$cfgdatastore,2; - (my $server,my $path = split/\//,$location,2; + (my $method,my $location) = split /:\/\//,$storeloc,2; + (my $server,my $path) = split/\//,$location,2; $server =~ s/:$//; #tolerate habitual colons my $servern = inet_aton($server); unless ($servern) {