X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FUtils.pm;h=f11dc3402935b752f98cc524f50f6098204036d6;hb=git_in_path_at_startup;hp=0df497357d2ec170ffe07051a45aa02827c4ce23;hpb=c113db9243002bb5a54e47b1358a5b1882b35d60;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/Utils.pm b/lib/Gitalist/Utils.pm
index 0df4973..f11dc34 100644
--- a/lib/Gitalist/Utils.pm
+++ b/lib/Gitalist/Utils.pm
@@ -45,6 +45,11 @@ sub age_string {
   return $age_str;
 }
 
+sub is_binary {
+  # Crappy heuristic - does the first line or so look printable?
+  return $_[0] !~ /^[[:print:]]+$ (?: \s ^[[:print:]]+$ )?/mx;
+}
+
 1;
 
 __END__
@@ -57,7 +62,11 @@ Gitalist::Utils - trivial utils for Gitalist
 
 =head2 age_string
 
-Turns an integer number of seconds into a string..
+Turns an integer number of seconds into a string.
+
+=head2 is_binary
+
+Check whether a string is binary according to C<-B>.
 
 =head1 AUTHORS