From f3ec1f9d4c1d7aa53864833470b71584acb56856 Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 29 Jun 2011 08:31:02 +0000
Subject: [PATCH] fix bugs 3316669

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

diff --git a/perl-xCAT/xCAT/FSPvm.pm b/perl-xCAT/xCAT/FSPvm.pm
index 0f5e9cf55..0f6b5d792 100644
--- a/perl-xCAT/xCAT/FSPvm.pm
+++ b/perl-xCAT/xCAT/FSPvm.pm
@@ -580,7 +580,7 @@ sub lsvm_parse_args {
 sub modify {
     my $request = shift;
     my $hash    = shift;
-    return modify_by_prof( $request, $hash) if ( $request->{opt}->{p}); 
+    return modify_by_prof( $request, $hash) if ( $request->{opt}->{p} || $request->{stdin}); 
     return create( $request, $hash) if ( $request->{opt}->{i}); 
     return ([["Error", "Miss argument"]]);
 }