|
Lines 847-860
Link Here
|
| 847 |
} |
847 |
} |
| 848 |
} |
848 |
} |
| 849 |
|
849 |
|
| 850 |
clean_MY_globals($self); |
850 |
push(@code, "PREPROCESS = \$(PERL) build/preprocessor"); |
| 851 |
return join("\n", @code); |
|
|
| 852 |
} |
| 853 |
|
| 854 |
sub MY::postamble { |
| 855 |
my $self = shift; |
| 856 |
my @code = (); |
| 857 |
init_MY_globals($self); |
| 858 |
|
851 |
|
| 859 |
my($repository); |
852 |
my($repository); |
| 860 |
$repository = uc($SELF->{INSTALLDIRS}) || 'SITE'; |
853 |
$repository = uc($SELF->{INSTALLDIRS}) || 'SITE'; |
|
Lines 876-887
Link Here
|
| 876 |
} |
869 |
} |
| 877 |
} |
870 |
} |
| 878 |
|
871 |
|
| 879 |
my $code = join("\n", @code); |
872 |
clean_MY_globals($self); |
| 880 |
@code = (); # free mem |
873 |
return join("\n", @code); |
|
|
874 |
} |
| 881 |
|
875 |
|
| 882 |
$code .= <<' EOD'; |
876 |
sub MY::postamble { |
|
|
877 |
my $self = shift; |
| 878 |
my @code = (); |
| 879 |
init_MY_globals($self); |
| 883 |
|
880 |
|
| 884 |
PREPROCESS = $(PERL) build/preprocessor |
881 |
my $code .= <<' EOD'; |
| 885 |
|
882 |
|
| 886 |
FIXVARS = -Mvars \ |
883 |
FIXVARS = -Mvars \ |
| 887 |
-DVERSION="$(VERSION)" \ |
884 |
-DVERSION="$(VERSION)" \ |
