-# Strategy one: call svn info and extract last changed revision, call svn status and look for ^M
-if(open(SVNINFO, "svn info $main_dir|")) {
- while(<SVNINFO>) {
- if (/^Last Changed Rev: (.*)/) {
- $present = 1;
- $svnversion = $1;
- ## last; # Do not abort here, since SVN tends to complain about a Broken pipe
- }
- }
- close(SVNINFO);
-
- if(open(SVNSTATUS, "svn status $main_dir|")) {
- $clean = 1;
- while(<SVNSTATUS>) {
- if(/^M/) {
- $clean = 0;
- ## last;
- }
- }
- close(SVNINFO);
- }
-
-} else {
- # Strategy two: look for .svn/entries. The third line should be "dir", the fourth line should contain the current
- # revision.
- if(open(ENTRIES, "$main_dir/.svn/entries")) {
- my $i = 1;
- while(<ENTRIES>) {
- last if($i == 3 and !/^dir/);
- if($i == 4 and /^([0-9]*)/) {
- $present = 1;
- $svnversion = $1;
- }
- $i++;
- }
- }
-}
+my $fullgitinfo = $gitbranch . '/' . $gitversion;
+
+$fullgitinfo =~ s/(\s)//g;
+
+# Crop so it fits within 50 characters
+$fullgitinfo =~ s/.{50}\K.*//s;