From: J. van Krieken <John.van.Krieken@ATComputing.nl>
Date: Thu, 4 Feb 1999 17:25:25 +0000 (+0100)
Subject: s2p incorrectly handles hold space commands
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d050a71cca1645f880852f454e45f0b5cf02f6df;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	}