X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dc1cf0b06e6bd0e4422039c5097576878ab0ddfc..84fc52bdc02b7b84f7a644cf2bed484f1213d9ce:/SL/DB/RequirementSpecItem.pm

diff --git a/SL/DB/RequirementSpecItem.pm b/SL/DB/RequirementSpecItem.pm
index 69265537c..641982cf1 100644
--- a/SL/DB/RequirementSpecItem.pm
+++ b/SL/DB/RequirementSpecItem.pm
@@ -99,12 +99,13 @@ sub validate {
   return @errors;
 }
 
-sub sorted_children {
+sub children_sorted {
   my ($self, @args) = @_;
 
   croak "Not a writer" if @args;
 
-  return [ sort { $a->position <=> $b->position } @{ $self->children } ];
+  my @children = sort { $a->position <=> $b->position } $self->children;
+  return wantarray ? @children : \@children;
 }
 
 sub section {