diff options
author | Maarten Vanraes <maarten@ba.be> | 2016-07-23 09:30:00 +0200 |
---|---|---|
committer | Maarten Vanraes <maarten@ba.be> | 2016-07-23 09:30:00 +0200 |
commit | f55377fbb3c4f531a14eabf220826640d01776d0 (patch) | |
tree | cb12395d151094f0cb752513bf5896e5b598680a /lib/ManaTools | |
parent | b7fafb38fccd17557ea388cde957322d7fc5ff64 (diff) | |
download | manatools-f55377fbb3c4f531a14eabf220826640d01776d0.tar manatools-f55377fbb3c4f531a14eabf220826640d01776d0.tar.gz manatools-f55377fbb3c4f531a14eabf220826640d01776d0.tar.bz2 manatools-f55377fbb3c4f531a14eabf220826640d01776d0.tar.xz manatools-f55377fbb3c4f531a14eabf220826640d01776d0.zip |
fix ordered children without a first tag
Diffstat (limited to 'lib/ManaTools')
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Part.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm index 7095fe78..9066b76b 100644 --- a/lib/ManaTools/Shared/disk_backend/Part.pm +++ b/lib/ManaTools/Shared/disk_backend/Part.pm @@ -381,6 +381,7 @@ sub children { my @children = $self->find_parts(undef, 'child'); return @children if (scalar(@children) == 0 || !defined $children[0]->order()); my $child = $self->find_part(undef, 'first'); + return @children if (!defined $child); @children = ($child); while ($child = $child->find_part(undef, 'next')) { push @children, $child; |