diff options
| author | J. van Krieken <John.van.Krieken@ATComputing.nl> | 1999-02-04 18:25:25 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-15 04:57:52 +0000 |
| commit | d050a71cca1645f880852f454e45f0b5cf02f6df (patch) | |
| tree | c9fa999337fa8891d99d4c4b4f2bcc52f470e6f4 /x2p | |
| parent | 883faa132e8bf2c932ff9f7c1722950f4325a1d7 (diff) | |
| download | perl-d050a71cca1645f880852f454e45f0b5cf02f6df.tar.gz | |
s2p incorrectly handles hold space commands
Message-Id: <199902041625.RAA14489@atcmpg.ATComputing.nl>
p4raw-id: //depot/perl@2933
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/s2p.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL index 7280dd4d80..2f617e7381 100644 --- a/x2p/s2p.PL +++ b/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; } |