fix codetest failures - cuddled else and an XXX at line 106 that perlcritic doesn't like
fix codetest failures - cuddled else and an XXX at line 106 that perlcritic doesn't like

git-svn-id: 713bb39fe04f1e43855c7302179f41752fae0caa@43575 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

youprofit/parrot,tkob/parrot,tewk/parrot-select,FROGGS/parrot,FROGGS/parrot,youprofit/parrot,youprofit/parrot,gagern/parrot,tewk/parrot-select,youprofit/parrot,gitster/parrot,tkob/parrot,fernandobrito/parrot,fernandobrito/parrot,FROGGS/parrot,FROGGS/parrot,gitster/parrot,fernandobrito/parrot,tkob/parrot,tewk/parrot-select,gitster/parrot,youprofit/parrot,gagern/parrot,gitster/parrot,FROGGS/parrot,tkob/parrot,youprofit/parrot,gagern/parrot,FROGGS/parrot,tewk/parrot-select,gagern/parrot,tkob/parrot,tewk/parrot-select,tkob/parrot,FROGGS/parrot,fernandobrito/parrot,gitster/parrot,gitster/parrot,parrot/parrot,parrot/parrot,FROGGS/parrot,gagern/parrot,tkob/parrot,tkob/parrot,parrot/parrot,tewk/parrot-select,fernandobrito/parrot,tewk/parrot-select,gagern/parrot,gitster/parrot,fernandobrito/parrot,youprofit/parrot,parrot/parrot,youprofit/parrot,parrot/parrot,fernandobrito/parrot,gagern/parrot