@@ -143,8 +143,7 @@ sub getDBVERSION {
my $line = <DBVERSION>;
close DBVERSION;
chomp($line);
- my @foo = split("/", $line);
- $data = \@foo;
+ @{$data} = split("/", $line);
return ();
}