git-svn: call 'fatal' correctly in set-tree

lucsky · spearce · commit 0a1a1c8615ec · 2008-09-30T13:58:59.000-07:00
When doing a set-tree and there is no revision to commit to, the following unrelated error message is displayed: "Undefined subroutine &amp;Git::SVN::fatal called at /opt/local/libexec/git-core/git-svn line 2575." The following patch fixes the problem and allows the real error message to be shown.

Signed-off-by: Luc Heinrich &lt;luc@honk-honk.com&gt;
Signed-off-by: Shawn O. Pearce &lt;spearce@spearce.org&gt;
diff --git a/git-svn.perl b/git-svn.perl
@@ -2571,7 +2571,7 @@ sub set_tree {
 	my ($self, $tree) = (shift, shift);
 	my $log_entry = ::get_commit_entry($tree);
 	unless ($self->{last_rev}) {
-		fatal("Must have an existing revision to commit");
+		::fatal("Must have an existing revision to commit");
 	}
 	my %ed_opts = ( r => $self->{last_rev},
 	                log => $log_entry->{log},

Original file line number	Diff line number	Diff line change
`@@ -2571,7 +2571,7 @@ sub set_tree {`
`2571`	`2571`	`my ($self, $tree) = (shift, shift);`
`2572`	`2572`	`my $log_entry = ::get_commit_entry($tree);`
`2573`	`2573`	`unless ($self->{last_rev}) {`
`2574`		`- fatal("Must have an existing revision to commit");`
	`2574`	`+ ::fatal("Must have an existing revision to commit");`
`2575`	`2575`	`}`
`2576`	`2576`	`my %ed_opts = ( r => $self->{last_rev},`
`2577`	`2577`	`log => $log_entry->{log},`