diff --git a/xCAT-server/lib/xcat/plugins/tabutils.pm b/xCAT-server/lib/xcat/plugins/tabutils.pm index e7f6c140f..23ee9be49 100644 --- a/xCAT-server/lib/xcat/plugins/tabutils.pm +++ b/xCAT-server/lib/xcat/plugins/tabutils.pm @@ -621,6 +621,14 @@ sub tabprune $cb->(\%rsp); return 1; + } + if (!(defined $PERCENT ) && (!(defined $RECID) && (!(defined $ALL)) && (!(defined $NUMBERENTRIES)))) { + my %rsp; + $rsp{data}->[0] = "One option -p or -i or -n or -a must be supplied."; + $rsp{errorcode} = 1; + $cb->(\%rsp); + return 1; + } if ((defined $PERCENT ) && ((defined $RECID) || (defined $ALL) || (defined $NUMBERENTRIES))) { my %rsp;