Fix flag option in getopts

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2336 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-10-13 15:57:54 +00:00
parent 192d4aab71
commit ae0ceb10ce

View File

@ -71,7 +71,7 @@ foreach my $a (@ARGV)
my @checkcmds = ("nimnodeset", "mkdsklsnode", "rmdsklsnode", "xcat2nim", "nimnodecust");
if (grep(/^$bname$/, @checkcmds) ) {
# strip off all options
getopts('ab:d:f:h?i:l:urs:m:no:t:vVp:');
getopts('ab:d:fh?i:l:urs:m:no:t:vVp:');
# check the operands for a noderange
while (my $a = shift(@ARGV)) {
if (!($a =~ /=/)) {