diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-08-21 21:38:00 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-08-21 21:38:00 +0200 |
| commit | 52cab08b9bb06bcc822b4e8d99455e693b8b64ae (patch) | |
| tree | a6fc75d2c5f18b98213e4d126c9aab7a73110fa8 /lib/LXRng/Repo | |
| parent | 17034adefacae12d6522eecc4a9e1f6ad04430fc (diff) | |
| parent | 7ee74cd1dd28ee902582e71cf8d3ebddd06c0599 (diff) | |
Merge branch 'master' of /home/argggh/git/lxrng/
Diffstat (limited to 'lib/LXRng/Repo')
| -rw-r--r-- | lib/LXRng/Repo/Git.pm | 2 | ||||
| -rw-r--r-- | lib/LXRng/Repo/Git/Directory.pm | 2 | ||||
| -rw-r--r-- | lib/LXRng/Repo/Git/Iterator.pm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/LXRng/Repo/Git.pm b/lib/LXRng/Repo/Git.pm index 9e03f83..7407ca0 100644 --- a/lib/LXRng/Repo/Git.pm +++ b/lib/LXRng/Repo/Git.pm @@ -127,7 +127,7 @@ sub node { else { my $git = $self->_git_cmd('ls-tree', $release, $path); my ($mode, $gitpath); - ($mode, $type, $rev, $gitpath) = split(" ", <$git>); + ($mode, $type, $rev, $gitpath) = split(" ", <$git>, 4); } if ($type eq 'tree') { diff --git a/lib/LXRng/Repo/Git/Directory.pm b/lib/LXRng/Repo/Git/Directory.pm index 6b24214..cf46915 100644 --- a/lib/LXRng/Repo/Git/Directory.pm +++ b/lib/LXRng/Repo/Git/Directory.pm @@ -60,7 +60,7 @@ sub contents { my (@dirs, @files); while (<$git>) { chomp; - my ($mode, $type, $ref, $node) = split(" ", $_); + my ($mode, $type, $ref, $node) = split(" ", $_, 4); if ($type eq 'tree') { push(@dirs, LXRng::Repo::Git::Directory->new($$self{'repo'}, $prefix.$node, diff --git a/lib/LXRng/Repo/Git/Iterator.pm b/lib/LXRng/Repo/Git/Iterator.pm index 702b4ca..418142c 100644 --- a/lib/LXRng/Repo/Git/Iterator.pm +++ b/lib/LXRng/Repo/Git/Iterator.pm @@ -28,7 +28,7 @@ sub new { my @refs; my $git = $repo->_git_cmd('ls-tree', '-r', $release); while (<$git>) { - if (/\S+\s+blob\s+(\S+)\s+(\S+)/) { + if (/\S+\s+blob\s+(\S+)\s+(.+)/) { push(@refs, [$2, $1]); } } |