Don't crash if group by attrib is empty string.

This commit is contained in:
Daniel Nichter
2012-07-11 15:46:58 -06:00
parent 6269b196a3
commit d8b0192495
7 changed files with 84 additions and 12 deletions

View File

@@ -764,7 +764,7 @@ sub _calc_metrics {
sub metrics {
my ( $self, %args ) = @_;
foreach my $arg ( qw(attrib where) ) {
die "I need a $arg argument" unless $args{$arg};
die "I need a $arg argument" unless defined $args{$arg};
}
my $attrib = $args{attrib};
my $where = $args{where};