diff options
| author | Eric Wong <e@80x24.org> | 2016-11-30 00:45:41 (GMT) |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2016-12-12 18:49:50 (GMT) |
| commit | a0f5a0c8285395d6eb2123e0c1ce78f900e1567c (patch) | |
| tree | 7e79f75407d7fc1ad70a5ef9ae0049e81320acba /perl | |
| parent | a274e0a036ea886a31f8b216564ab1b4a3142f6c (diff) | |
| download | git-a0f5a0c8285395d6eb2123e0c1ce78f900e1567c.zip git-a0f5a0c8285395d6eb2123e0c1ce78f900e1567c.tar.gz git-a0f5a0c8285395d6eb2123e0c1ce78f900e1567c.tar.bz2 | |
git-svn: allow "0" in SVN path components
Blindly checking a path component for falsiness is unwise, as
"0" is false to Perl, but a valid pathname component for SVN
(or any filesystem).
Found via random code reading.
Signed-off-by: Eric Wong <e@80x24.org>
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Git/SVN/Ra.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm index e764696..56ad987 100644 --- a/perl/Git/SVN/Ra.pm +++ b/perl/Git/SVN/Ra.pm @@ -606,7 +606,7 @@ sub minimize_url { my $latest = $ra->get_latest_revnum; $ra->get_log("", $latest, 0, 1, 0, 1, sub {}); }; - } while ($@ && ($c = shift @components)); + } while ($@ && defined($c = shift @components)); return canonicalize_url($url); } |