| 121 |
|
my $hashref; |
| 122 |
|
|
| 123 |
|
$hashref=$switch->SetupValueHash(\@vars); |
| 124 |
+ |
$$hashref{'ref'}=~tr[A-Z][a-z]; |
| 125 |
|
print GNUmakefile $$hashref{'ref'}; |
| 126 |
|
if ( defined $$hashref{'version'} ) { |
| 127 |
|
print GNUmakefile "_V_".$$hashref{'version'}; |
| 175 |
|
print GNUmakefile "local__$$hashref{name}=true\n"; |
| 176 |
|
} |
| 177 |
|
|
| 178 |
< |
sub CheckBuildFile($directory) { |
| 178 |
> |
sub CheckBuildFile { |
| 179 |
|
my $classdir=shift; |
| 180 |
|
$ClassName=""; |
| 181 |
|
$thisfile="$classdir/$buildfile"; |
| 206 |
|
} |
| 207 |
|
|
| 208 |
|
# Split up the Class Block String into a useable array |
| 209 |
< |
sub _CutBlock($string) { |
| 209 |
> |
sub _CutBlock { |
| 210 |
|
my $string= shift @_; |
| 211 |
|
@BlockClassA = split /\//, $string; |
| 212 |
|
} |
