s2p incorrectly handles hold space commands

	Message-Id: <199902041625.RAA14489@atcmpg.ATComputing.nl>

p4raw-id: //depot/perl@2933

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 7280dd4..2f617e7 100644 (file)
--- 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;
        }