Replace perl code with pure shell code
Replace perl code with pure shell code

Signed-off-by: Simon 'corecode' Schubert <e905d2ffdead59a2d837bbb16f66863987de5fa8@fs.ei.tum.de>
Signed-off-by: Junio C Hamano <dc50d1021234060e53ec42a77d526afa2fe07479@cox.net>

destenson/git,destenson/git,destenson/git,destenson/git,destenson/git,destenson/git,destenson/git,destenson/git