aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ManaTools/Shared/disk_backend/FileSystem.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ManaTools/Shared/disk_backend/FileSystem.pm')
-rw-r--r--lib/ManaTools/Shared/disk_backend/FileSystem.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/FileSystem.pm b/lib/ManaTools/Shared/disk_backend/FileSystem.pm
index 3799686f..fec1847a 100644
--- a/lib/ManaTools/Shared/disk_backend/FileSystem.pm
+++ b/lib/ManaTools/Shared/disk_backend/FileSystem.pm
@@ -61,9 +61,11 @@ use Moose::Role;
has 'fstypes' => (
is => 'ro',
- isa => 'ArrayRef[Str]',
+ isa => 'HashRef[Str]',
init_arg => undef,
- default => sub { return []; },
+ default => sub {
+ return {};
+ },
);
#=============================================================
@@ -91,7 +93,7 @@ sub has_type {
my $self = shift;
my $type = shift;
my $fstypes = $self->fstypes();
- for my $t (@{$fstypes}) {
+ for my $t (keys %{$fstypes}) {
if ($t eq $type) {
return 1;
}