Bug#464122: Forgot filename

[Petter Reinholdtsen <pere@hungry.com>]

[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