X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=blobdiff_plain;f=t%2F02git_util.t;h=428677d20b66299b94e92154c2b478ec5a096993;hp=a3fe51b41ad30e330dc9df832a9f6470df76b3fb;hb=2d52ed84dbce5932f14972ba91a33de23faac648;hpb=cce03a80183c94b16b411533e3744f9d03625634

diff --git a/t/02git_util.t b/t/02git_util.t
index a3fe51b..428677d 100644
--- a/t/02git_util.t
+++ b/t/02git_util.t
@@ -1,5 +1,11 @@
 use FindBin qw/$Bin/;
-BEGIN { do "$FindBin::Bin/../script/env" or die $@ }
+BEGIN {
+    my $env = "$FindBin::Bin/../script/env";
+    if (-r $env) {
+        do $env or die $@;
+    }
+}
+
 use strict;
 use warnings;
 use Test::More;
@@ -20,7 +26,7 @@ my $util = Gitalist::Git::Util->new(
 );
 isa_ok($util, 'Gitalist::Git::Util');
 
-like( $util->_git, qr#/git$#, 'git binary found');
+like( $util->_git, qr#\bgit(\.\w+)*$#, 'git binary found');
 isa_ok($util->gpp, 'Git::PurePerl', 'gpp instance created');
 
 done_testing;