aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMaarten Vanraes <maarten@ba.be>2016-07-23 09:41:58 +0200
committerMaarten Vanraes <maarten@ba.be>2016-07-23 09:41:58 +0200
commit401bad2098a7495032015b59099b0a5569d5105b (patch)
treed8ef73b73d00afc204069d398a8732b556b8f754
parent828dd2e34c5b8753625d67ed30e42087bb1b6f0a (diff)
downloadmanatools-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.pm3
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) .')';