some minor improvments
authorStefan Metzmacher <metze@samba.org>
Fri, 21 Dec 2007 02:27:21 +0000 (03:27 +0100)
committerStefan Metzmacher <metze@samba.org>
Fri, 21 Dec 2007 02:27:21 +0000 (03:27 +0100)
metze

sync-v4-0-test.pl

index d165843..7452d18 100755 (executable)
@@ -20,7 +20,7 @@ $ENV{LANG} = "en_US.UTF-8";
 
 my $r = SVN2GitPatch->new($svn_repo_path, $authors_file);
 
-sub get_last_svn_rev($;$)
+sub load_last_svn_rev($;$)
 {
        my ($file, $default_rev) = @_;
 
@@ -32,19 +32,19 @@ sub get_last_svn_rev($;$)
        $v *= 1;
        $v = $default_rev if $v == 0;
 
-       print "get_last_svn_rev: $v\n";
+       print "load_last_svn_rev: $v\n";
        return $v;
 }
 
-sub set_last_svn_rev($$)
+sub save_last_svn_rev($$)
 {
        my ($file, $rev) = @_;
        util::FileSave($file, $rev);
-       print "set_last_svn_rev: $rev\n";
+       print "save_last_svn_rev: $rev\n";
 }
 
 my $last_rev = $r->get_last_svn_rev($svn_branch);
-my $start_rev = get_last_svn_rev($last_svn_rev_file, $svn_start_rev);
+my $start_rev = load_last_svn_rev($last_svn_rev_file, $svn_start_rev);
 my $revs = $r->get_missing_svn_revs($svn_branch, $start_rev);
 
 print "start: $start_rev last: $last_rev\n";
@@ -53,16 +53,18 @@ foreach my $rev (sort keys %{$revs}) {
        print "Get patch for rev: $rev\n";
        my $p = $r->get_git_patch($revs->{$rev}->{branch}, $rev);
 
-       next unless defined($p->{git_patch});
+       if (defined($p->{git_patch})) {
+               my $patch_path = "$patch_path/$rev.patch";
+               open(PATCH, ">$patch_path") or
+                       die ("failed to $patch_path for write");
+               print PATCH $p->{git_patch}."\n";
+               close PATCH;
 
-       my $patch_path = "$patch_path/$rev.patch";
-       open(PATCH, ">$patch_path") or die ("failed to $patch_path for write");
-       print PATCH $p->{git_patch}."\n";
-       close PATCH;
+               my $applycmd = "cd $git_repo_path && git am --whitespace=nowarn --binary $patch_path";
 
-       my $applycmd = "cd $git_repo_path && git am --whitespace=nowarn --binary $patch_path";
+               print "Apply $rev.patch\n";
+               my $apply = `$applycmd` or die "$applycmd: failed";
+       }
 
-       my $apply = `$applycmd` or die "$applycmd: failed";
-
-       set_last_svn_rev($last_svn_rev_file, $rev);
+       save_last_svn_rev($last_svn_rev_file, $rev);
 }