Merged fix-1035311-group-by-sample-devices-regex-interaction

This commit is contained in:
Brian Fraser
2012-08-24 19:57:01 -03:00
9 changed files with 1641 additions and 9 deletions

View File

@@ -143,9 +143,8 @@ sub compute_devs_in_group {
sub compute_dev {
my ( $self, $devs ) = @_;
$devs ||= $self->compute_devs_in_group();
return $devs > 1
? "{" . $devs . "}"
: $self->{_ordered_devs}->[0];
return "{" . $devs . "}" if $devs > 1;
return (grep { $self->_print_device_if($_) } $self->ordered_devs())[0];
}
# Terrible breach of encapsulation, but it'll have to do for the moment.