diff options
Diffstat (limited to 'contrib/perl5/x2p')
| -rwxr-xr-x | contrib/perl5/x2p/Makefile.SH | 6 | ||||
| -rw-r--r-- | contrib/perl5/x2p/s2p.PL | 4 | ||||
| -rw-r--r-- | contrib/perl5/x2p/walk.c | 4 |
3 files changed, 8 insertions, 6 deletions
diff --git a/contrib/perl5/x2p/Makefile.SH b/contrib/perl5/x2p/Makefile.SH index 5bec7a0..1f92d5d 100755 --- a/contrib/perl5/x2p/Makefile.SH +++ b/contrib/perl5/x2p/Makefile.SH @@ -36,8 +36,10 @@ BYACC = $byacc LDFLAGS = $ldflags SMALL = $small LARGE = $large $split -mallocsrc = $mallocsrc -mallocobj = $mallocobj +# XXX Perl malloc temporarily unusable (declaration collisions with +# stdlib.h) +#mallocsrc = $mallocsrc +#mallocobj = $mallocobj shellflags = $shellflags libs = $libs diff --git a/contrib/perl5/x2p/s2p.PL b/contrib/perl5/x2p/s2p.PL index dbcb27c..463465d 100644 --- a/contrib/perl5/x2p/s2p.PL +++ b/contrib/perl5/x2p/s2p.PL @@ -671,7 +671,7 @@ EOT } if (/^H/) { - $_ = '$hold .= "\n"; $hold .= $_;'; + $_ = '$hold .= "\n", $hold .= $_;'; next; } @@ -681,7 +681,7 @@ EOT } if (/^G/) { - $_ = '$_ .= "\n"; $_ .= $hold;'; + $_ = '$_ .= "\n", $_ .= $hold;'; next; } diff --git a/contrib/perl5/x2p/walk.c b/contrib/perl5/x2p/walk.c index 0b40655..24b86aa 100644 --- a/contrib/perl5/x2p/walk.c +++ b/contrib/perl5/x2p/walk.c @@ -133,7 +133,7 @@ walk(int useval, int level, register int node, int *numericptr, int minprec) if (saw_FS && !const_FS) do_chop = TRUE; if (do_chop) { - str_cat(str,"chop;\t# strip record separator\n"); + str_cat(str,"chomp;\t# strip record separator\n"); tab(str,level); } if (do_split) @@ -190,7 +190,7 @@ walk(int useval, int level, register int node, int *numericptr, int minprec) i = 0; if (do_chop) { i++; - str_cat(str,"chop;\t# strip record separator\n"); + str_cat(str,"chomp;\t# strip record separator\n"); tab(str,level); } if (do_split && !(len & 1)) { |
