Skip to content

Commit

Permalink
remove wrong shift after -c eating my args
Browse files Browse the repository at this point in the history
git-svn-id: http://perl-compiler.googlecode.com/svn/trunk@166 ed534f1a-1453-0410-ab30-dfc593a8b23c
  • Loading branch information
Reini Urban committed Dec 15, 2009
1 parent 25370ff commit a104562
Showing 1 changed file with 1 addition and 3 deletions.
4 changes: 1 addition & 3 deletions t/testc.sh
Original file line number Diff line number Diff line change
Expand Up @@ -211,8 +211,6 @@ result[28]='ok'
tests[29]='use IO;print "ok"'
result[29]='ok'



#
# getopts for -q -Du,-q -v -O2, -a -c
while getopts "hqacD:B:O:" opt
Expand All @@ -228,7 +226,7 @@ do
OCMDO3="$(echo $OCMDO3|sed -e 's/-D.*,-v,//' -e s/-MO=/-MO=$qq/)"
CCMD="$PERL script/cc_harness -q -g3 -Bdynamic"
fi
if [ "$opt" = "c" ]; then CONT=1; shift; fi
if [ "$opt" = "c" ]; then CONT=1; fi
if [ "$opt" = "h" ]; then help; exit; fi
# -D options: u,-q for quiet, no -D for verbose
if [ "$opt" = "D" ]; then
Expand Down

0 comments on commit a104562

Please sign in to comment.