#!/usr/bin/perlusestrict;usewarnings;# this is hardcoded; change it if neededuselib"src/lib";useGitolite::Test;try"plan 1; cd $ENV{PWD}; git status -s -uno; !/./ or die"ordie"dirty tree";try"git log -1 --format='%h %ai %s'";put"|cat >> prove.log",text();