public/code/pool.label.pl

   1 foreach my $v ( @{ $row->{'pool'} } ) {
   2  my $drives = $v =~ s/sd/sd/g;
   3  my $vdevs  = $v =~ s/raidz/raidz/g || $v =~ s/mirror/mirror/g;
   4  my $c = $drives / $vdevs;
   5  $update->{label} = "$vdevs.$c";
   6 }
   7