-# 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);
- }