+ #$module = $filename;
+ #$module =~ s/^.*\///;
+ #$module =~ s/\..*$//;
+ if($module eq "") {
+ print STDERR "$filename is not a module\n";
+ } else {
+ print STDERR ("$filename is module $module and has " . scalar(keys %tvars) . " variables\n");
+ for $var (keys %tvars) {
+ $vars{"$module.$var"} = $tvars{$var};
+ }