From 212032247f780671c76542723c98fa8b45bf84d3 Mon Sep 17 00:00:00 2001
From: zhanx <zhanx@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 20 May 2009 10:04:04 +0000
Subject: [PATCH] fix bug 'mkvm cannot get profile if relative path is
 specified', sourceforge bug ID 2792460

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3412 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCvm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm
index 2e68a5095..428bf9fa7 100644
--- a/perl-xCAT/xCAT/PPCvm.pm
+++ b/perl-xCAT/xCAT/PPCvm.pm
@@ -256,7 +256,7 @@ sub mkvm_parse_args {
 # Read and check profile
 ####################################
     if ( exists( $opt{p})) {
-        $opt{p} = $request->{cwd}->[0] . $opt{p} if ( $opt{p} !~ /^\//);
+        $opt{p} = $request->{cwd}->[0] . '/' . $opt{p} if ( $opt{p} !~ /^\//);
         return ( usage( "Profile $opt{p} cannot be found")) if ( ! -f $opt{p});
         open (PROFFILE, "<$opt{p}") or return ( usage( "Cannot open profile $opt{p}"));
         my @cfgdata = ();