Deparse formats in the right spot

Formats need the same logic applied in 34b54951568, to avoid this:

Input:

{
    my $x;
    format STDOUT =
@
$x
.
}
__END__

$ pbpaste|./perl -Ilib -MO=Deparse
{
    my $x;
}
format STDOUT =
@
$x
.
__DATA__
- syntax OK

That $x in the format is now global, not lexical.

Also, we need to make sure the sequence numbers are correct.  The
statement after the format stopped having a higher sequence number
than CvOUTSIDE_SEQ(format) in 8635e3c238f, because the ‘pending’
sequence number set aside for the nextstate op created just after com-
pile-time block exit (which nextstate op comes before the block) was
not actually being used by newFORM (unlike newATTRSUB), so the follow-
ing statement was using that number.

1 files changed, 25 insertions, 25 deletions

diff --git a/perly.tab b/perly.tab
index 401c95cfca..db2ad81c1c 100644
--- a/perly.tab
+++ b/perly.tab
@@ -193,30 +193,30 @@ static const yytype_uint16 yyrline[] =
 {
        0,   115,   115,   114,   125,   124,   134,   133,   146,   145,
      158,   157,   170,   169,   181,   189,   197,   201,   209,   215,
-     216,   226,   227,   236,   240,   244,   248,   255,   257,   268,
-     267,   300,   308,   307,   316,   322,   328,   339,   341,   343,
-     350,   358,   360,   357,   377,   382,   389,   388,   403,   411,
-     417,   424,   423,   438,   442,   450,   468,   469,   474,   476,
-     478,   480,   482,   484,   486,   489,   495,   496,   501,   512,
-     513,   519,   525,   526,   531,   534,   538,   543,   547,   551,
-     555,   556,   560,   566,   571,   576,   577,   582,   583,   588,
-     589,   591,   596,   598,   603,   605,   604,   623,   633,   634,
-     638,   640,   642,   644,   648,   650,   655,   659,   663,   667,
-     673,   678,   684,   690,   692,   695,   694,   705,   706,   710,
-     714,   717,   722,   727,   730,   734,   738,   741,   746,   750,
-     753,   755,   757,   762,   764,   766,   771,   773,   775,   777,
-     779,   781,   783,   785,   787,   789,   791,   796,   798,   801,
-     803,   805,   808,   811,   822,   825,   832,   834,   836,   838,
-     840,   847,   849,   853,   854,   855,   856,   857,   859,   861,
-     863,   865,   867,   869,   871,   873,   875,   877,   879,   881,
-     883,   893,   903,   913,   923,   925,   927,   930,   935,   939,
-     941,   943,   945,   948,   950,   953,   955,   957,   959,   961,
-     963,   965,   967,   969,   972,   974,   976,   978,   980,   982,
-     986,   989,   988,  1001,  1002,  1003,  1008,  1012,  1014,  1019,
-    1021,  1024,  1026,  1028,  1033,  1035,  1040,  1041,  1047,  1051,
-    1052,  1053,  1056,  1057,  1060,  1064,  1068,  1074,  1080,  1082,
-    1086,  1090,  1091,  1095,  1096,  1100,  1101,  1106,  1108,  1110,
-    1113
+     216,   226,   227,   236,   240,   244,   248,   255,   257,   269,
+     268,   301,   309,   308,   317,   323,   329,   340,   342,   344,
+     351,   359,   361,   358,   378,   383,   390,   389,   404,   412,
+     418,   425,   424,   439,   443,   451,   469,   470,   475,   477,
+     479,   481,   483,   485,   487,   490,   496,   497,   502,   513,
+     514,   520,   526,   527,   532,   535,   539,   544,   548,   552,
+     556,   557,   561,   567,   572,   577,   578,   583,   584,   589,
+     590,   592,   597,   599,   604,   606,   605,   624,   634,   635,
+     639,   641,   643,   645,   649,   651,   656,   660,   664,   668,
+     674,   679,   685,   691,   693,   696,   695,   706,   707,   711,
+     715,   718,   723,   728,   731,   735,   739,   742,   747,   751,
+     754,   756,   758,   763,   765,   767,   772,   774,   776,   778,
+     780,   782,   784,   786,   788,   790,   792,   797,   799,   802,
+     804,   806,   809,   812,   823,   826,   833,   835,   837,   839,
+     841,   848,   850,   854,   855,   856,   857,   858,   860,   862,
+     864,   866,   868,   870,   872,   874,   876,   878,   880,   882,
+     884,   894,   904,   914,   924,   926,   928,   931,   936,   940,
+     942,   944,   946,   949,   951,   954,   956,   958,   960,   962,
+     964,   966,   968,   970,   973,   975,   977,   979,   981,   983,
+     987,   990,   989,  1002,  1003,  1004,  1009,  1013,  1015,  1020,
+    1022,  1025,  1027,  1029,  1034,  1036,  1041,  1042,  1048,  1052,
+    1053,  1054,  1057,  1058,  1061,  1065,  1069,  1075,  1081,  1083,
+    1087,  1091,  1092,  1096,  1097,  1101,  1102,  1107,  1109,  1111,
+    1114
 };
 #endif
 
@@ -1140,6 +1140,6 @@ static const toketypes yy_type_tab[] =
 };
 
 /* Generated from:
- * 7c925861de53b976298e1b6e79a731de2d11247fd3db73f423cba0fd8c2e1afe perly.y
+ * 483e652a7d8fe19f0ca9b30539b01d530f0fa872a8b4cfab025c589aa581d7d2 perly.y
  * d1d4df7b8e30ac9dede664af9179e6e5e7ddc7f2ad9c4eff9e2e5b32c9e16a6e regen_perly.pl
  * ex: set ro: */