git-svn: fix revision order when XML::Simple is not loaded

Thanks to Emmanuel Guerin for finding the bug.

Signed-off-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/contrib/git-svn/git-svn b/contrib/git-svn/git-svn
index 62fc14fb0de5df23c889ee6106406639906a3002..ddd95798012d37025baa01cbd3fc6e2447b8696f 100755 (executable)
--- a/contrib/git-svn/git-svn
+++ b/contrib/git-svn/git-svn
@@ -523,7 +523,7 @@ sub svn_log_raw {
 
                        # if we have an empty log message, put something there:
                        if (@svn_log) {
 
                        # if we have an empty log message, put something there:
                        if (@svn_log) {

-                               $svn_log[0]->{msg} ||= "\n";
+                               $svn_log[$#svn_log]->{msg} ||= "\n";

                        }
                        next;
                }
                        }
                        next;
                }


@@ -538,7 +538,7 @@ sub svn_log_raw {
                                        date => "$tz $Y-$m-$d $H:$M:$S",
                                        author => $author,
                                        msg => '' );
                                        date => "$tz $Y-$m-$d $H:$M:$S",
                                        author => $author,
                                        msg => '' );

-                       unshift @svn_log, \%log_msg;
+                       push @svn_log, \%log_msg;

                        $state = 'msg_start';
                        next;
                }
                        $state = 'msg_start';
                        next;
                }


@@ -546,7 +546,7 @@ sub svn_log_raw {
                if ($state eq 'msg_start' && /^$/) {
                        $state = 'msg';
                } elsif ($state eq 'msg') {
                if ($state eq 'msg_start' && /^$/) {
                        $state = 'msg';
                } elsif ($state eq 'msg') {

-                       $svn_log[0]->{msg} .= $_."\n";
+                       $svn_log[$#svn_log]->{msg} .= $_."\n";

                }
        }
        close $log_fh or croak $?;
                }
        }
        close $log_fh or croak $?;