From f55377fbb3c4f531a14eabf220826640d01776d0 Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <maarten@ba.be>
Date: Sat, 23 Jul 2016 09:30:00 +0200
Subject: fix ordered children without a first tag

---
 lib/ManaTools/Shared/disk_backend/Part.pm | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
cgit v1.2.1