diff options
author | Maarten Vanraes <maarten@ba.be> | 2016-07-23 09:41:58 +0200 |
---|---|---|
committer | Maarten Vanraes <maarten@ba.be> | 2016-07-23 09:41:58 +0200 |
commit | 401bad2098a7495032015b59099b0a5569d5105b (patch) | |
tree | d8ef73b73d00afc204069d398a8732b556b8f754 | |
parent | 828dd2e34c5b8753625d67ed30e42087bb1b6f0a (diff) | |
download | manatools-401bad2098a7495032015b59099b0a5569d5105b.tar manatools-401bad2098a7495032015b59099b0a5569d5105b.tar.gz manatools-401bad2098a7495032015b59099b0a5569d5105b.tar.bz2 manatools-401bad2098a7495032015b59099b0a5569d5105b.tar.xz manatools-401bad2098a7495032015b59099b0a5569d5105b.zip |
get rid of IO
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm index ba47fc63..6f58d1d7 100644 --- a/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm +++ b/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm @@ -135,7 +135,8 @@ class_has '+restrictions' => ( override('label', sub { my $self = shift; my $label = super; - if ($self->out_length() < 1) { + my @children = $self->children(); + if (scalar(@children) < 1) { return $label; } return $label .'('. join(',', sort map { $_->label(); } @children) .')'; |