be less verbose and return if nothing todo
authorStefan Metzmacher <metze@samba.org>
Thu, 8 Nov 2007 20:31:10 +0000 (14:31 -0600)
committerStefan Metzmacher <metze@samba.org>
Thu, 8 Nov 2007 20:31:10 +0000 (14:31 -0600)
metze

samba4-sync.pl

index b77618c..8872ef7 100755 (executable)
@@ -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;