@@ -61,7 +61,7 @@ sub data {
my $DIV_FIELD =";";
my $DIV_VALUE ="=";
- carp("data must be a hash reference" unless ref $data == 'HASH');
+ carp("data must be a hash reference") unless ref $data == 'HASH';
my @fields;
foreach (keys %$data) {