32c32
< our $VERSION = '0.07';
---
> our $VERSION = '0.08';
303,304c303
< 	unless(scalar(@_) == 2)
< 	{
---
> 	unless(scalar(@_) == 2) {
311c310
< 	my $Data = list_instances($self->{'MACHINENAME'}, $Object, $self->{'ERRORMSG'});
---
> 	my @Instances = list_instances($self->{'MACHINENAME'}, $Object, $self->{'ERRORMSG'});
313,317c312,313
< 	my @Instances = split(/\|/, $Data);
< 	
< 	if($Instances[0] eq -1)
< 	{
< 		return(-1);
---
> 	if ( $Instances[0] eq -1 ) {
> 		return( -1 );
319,321c315,316
< 	else
< 	{	
< 		return(\@Instances);
---
> 	else {
> 		return( \@Instances );