diff options
| author | Arne Georg Gleditsch <argggh@taniquetil.(none)> | 2009-08-09 13:35:21 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@taniquetil.(none)> | 2009-08-09 13:35:21 +0200 |
| commit | 18c9a9da17ebea409c56ef9118a0adcc536f05c4 (patch) | |
| tree | 5e9f0d34a276db73d2bd8e946843e015c7fda13c /lib/LXRng/Repo | |
| parent | 172a21f37471c7d8ad55318dcdc61c51986d4452 (diff) | |
| parent | 52cab08b9bb06bcc822b4e8d99455e693b8b64ae (diff) | |
Merge branch 'master' of ssh://lxr.linux.no/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]); } } |