diff options
author | Dave O'Neill <dmo@roaringpenguin.com> | 2007-06-21 17:48:56 -0400 |
---|---|---|
committer | Junio C Hamano <gitster@pobox.com> | 2007-06-22 22:13:49 -0700 |
commit | 47ee8ed292f14e819d8e449a56c2de02d1892483 (patch) | |
tree | 6c8cca3f85e175af5dbf4ec955e3149f1e905379 | |
parent | 6762079a96dd18bcaab75f2d05034f7447434161 (diff) | |
download | git-47ee8ed292f14e819d8e449a56c2de02d1892483.tar.gz |
Generate tags with correct timestamp (git-svnimport)
Now uses git-tag instead of manually constructing the tag. This gives us a
correct timestamp, removes some crufty code, and makes it work the same as
git-cvsimport.
The generated tags are now lightweight tags instead of tag objects, which may
or may not be the behaviour we want.
Also, remove two unused variables from git-cvsimport.
Signed-off-by: Junio C Hamano <gitster@pobox.com>
-rwxr-xr-x | git-cvsimport.perl | 1 | ||||
-rwxr-xr-x | git-svnimport.perl | 26 |
2 files changed, 3 insertions, 24 deletions
diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 433b7fd324..69ccb88dde 100755 --- a/git-cvsimport.perl +++ b/git-cvsimport.perl @@ -774,7 +774,6 @@ sub commit { or die "Cannot write branch $branch for update: $!\n"; if ($tag) { - my ($in, $out) = ('',''); my ($xtag) = $tag; $xtag =~ s/\s+\*\*.*$//; # Remove stuff like ** INVALID ** and ** FUNKY ** $xtag =~ tr/_/\./ if ( $opt_u ); diff --git a/git-svnimport.perl b/git-svnimport.perl index f4597626b9..b73d6494d8 100755 --- a/git-svnimport.perl +++ b/git-svnimport.perl @@ -867,34 +867,14 @@ sub commit { or die "Cannot write branch $dest for update: $!\n"; } - if($tag) { - my($in, $out) = ('',''); + if ($tag) { $last_rev = "-" if %$changed_paths; # the tag was 'complex', i.e. did not refer to a "real" revision $dest =~ tr/_/\./ if $opt_u; - $branch = $dest; - - my $pid = open2($in, $out, 'git-mktag'); - print $out ("object $cid\n". - "type commit\n". - "tag $dest\n". - "tagger $committer_name <$committer_email> 0 +0000\n") and - close($out) - or die "Cannot create tag object $dest: $!\n"; - - my $tagobj = <$in>; - chomp $tagobj; - - if ( !close($in) or waitpid($pid, 0) != $pid or - $? != 0 or $tagobj !~ /^[0123456789abcdef]{40}$/ ) { - die "Cannot create tag object $dest: $!\n"; - } - open(C,">$git_dir/refs/tags/$dest") and - print C ("$tagobj\n") and - close(C) - or die "Cannot create tag $branch: $!\n"; + system('git-tag', $dest, $cid) == 0 + or die "Cannot create tag $dest: $!\n"; print "Created tag '$dest' on '$branch'\n" if $opt_v; } |