- # Strategy two: look for .svn/entries. The third line should be "dir", the fourth line should contain
- # the currently checked out revision, the eleventh line should contain the last changed revision.
- # revision.
- if(open(ENTRIES, "$main_dir/.svn/entries")) {
- my $i = 1;
- while(<ENTRIES>) {
- last if($i == 3 and !/^dir/);
- if($i == 11 and /^([0-9]*)/) {
- $svnversion = $1;
- }
- $i++;
- }
- }