be less verbose and return if nothing todo

metze

diff --git a/samba4-sync.pl b/samba4-sync.pl
index b77618c50efe3249e3a0bbf1ce153a4da40dbc78..8872ef79772f9299b3408b3f2cf88a673fba84fd 100755 (executable)
--- a/samba4-sync.pl
+++ b/samba4-sync.pl
@@ -125,7 +125,7 @@ sub strip_svn_properties($)
        my $chunks = undef;
        foreach my $l (@in) {
                if ($l =~ /^Index: ([\w\.\_\-\/]+)/) {
-                       print "content: $1\n";
+                       #print "content: $1\n";
 
                        $chunk = undef;
                        $chunk->{type} = "content";
@@ -133,7 +133,7 @@ sub strip_svn_properties($)
                        confess "$1 content exists" if defined($chunks->{$1}) and defined($chunks->{$1}->{content});
                        $chunks->{$1}->{content} = $chunk;
                } elsif ($l =~ /^Property changes on: ([\w\.\_\-\/]+)/) {
-                       print "properties(".is_dir($1)."): $1\n";
+                       #print "properties(".is_dir($1)."): $1\n";
 
                        $chunk = undef;
                        $chunk->{type} = "property";
@@ -177,6 +177,7 @@ sub get_new_svn_revs($$)
 {
        my ($lastrev, $currev) = @_;
        my $nextrev = $lastrev + 1;
+       return undef if $nextrev >= $currev;
        my $logcmd = "LANG=C svn log --non-interactive -r $nextrev:$currev $SVN_PATH";
        my $log = `$logcmd` || confess "$logcmd: failed";
        my $revs = undef;