fix misplaced brace in s2p (as suggested by Lionel Fourquaux

<lionel.fourquaux@wanadoo.fr>)

p4raw-id: //depot/perl@2223

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index dbcb27c..7280dd4 100644 (file)
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -339,11 +339,11 @@ if ($appendseen || $tseen || !$assumen) {
 :          if ($atext) { chop $atext; print $atext; $atext = ''; }
 :      #endif
 EOT
+}
 
 print BODY &q(<<'EOT');
 :      }
 EOT
-}
 
 unless ($debug) {