# | Line 5 | Line 5 | require BuildFile; | |
---|---|---|
5 | @ISA = qw(Exporter); | |
6 | @EXPORT = qw( GetClass $ClassDir $Class); | |
7 | ||
8 | < | sub GetClass($dirname) { |
8 | > | sub GetClass { |
9 | my $dirname = shift; | |
10 | $Class="DEFAULT"; | |
11 | $ClassDir=""; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |