aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2016-11-30 00:45:41 +0000
committerJunio C Hamano <gitster@pobox.com>2016-12-12 10:49:50 -0800
commita0f5a0c8285395d6eb2123e0c1ce78f900e1567c (patch)
tree7e79f75407d7fc1ad70a5ef9ae0049e81320acba /perl
parenta274e0a036ea886a31f8b216564ab1b4a3142f6c (diff)
downloadgit-a0f5a0c8285395d6eb2123e0c1ce78f900e1567c.tar.gz
git-a0f5a0c8285395d6eb2123e0c1ce78f900e1567c.tar.xz
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.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index e76469680..56ad9870b 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);
}