X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FUtils.pm;h=f11dc3402935b752f98cc524f50f6098204036d6;hb=13c42902c178ccbb5d2e9fd174e06e8995490ff3;hp=c40d82596c8167f84ba2ff521e17f7b2b35c4254;hpb=53a9d6dea650b0bddbf902282bd1df40b7826138;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/Utils.pm b/lib/Gitalist/Utils.pm
index c40d825..f11dc34 100644
--- a/lib/Gitalist/Utils.pm
+++ b/lib/Gitalist/Utils.pm
@@ -46,9 +46,8 @@ sub age_string {
 }
 
 sub is_binary {
-  my($str) = @_;
-  open my $fh, '<', \$str or return;
-  return -B $fh;
+  # Crappy heuristic - does the first line or so look printable?
+  return $_[0] !~ /^[[:print:]]+$ (?: \s ^[[:print:]]+$ )?/mx;
 }
 
 1;