[Bartek Kania 2008-02-05]
> Forgot to specify that the problem is in output.c
I suspect the patch you propose is this one:
diff --git a/output.c b/output.c
index dbd85be..b0ab93b 100644
--- a/output.c
+++ b/output.c
@@ -84,7 +84,7 @@ void output()
if (language == PERL) {
fprintf(code_file, "sub new {\n");
if (perl5005flag) {
- fprintf(code_file, " my %s $p = bless [\\%FIELDS], $_[0];\n",
+ fprintf(code_file, " my %s $p = bless [\\%%FIELDS], $_[0];\n",
perl_package);
}
else {
Unfortunately I do not have any way to test if it work or not. Do you
have some test files that can be used to demonstrate the problem?
--
Happy hacking
Petter Reinholdtsen
