clean up some stray "global" symbols

p4raw-id: //depot/perl@3521

1 files changed, 1 insertions, 0 deletions

diff --git a/opcode.pl b/opcode.pl
index 2733cbe9f2..7ca580b744 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -219,6 +219,7 @@ open PPSYM, '>pp.sym' or die "Error creating pp.sym: $!";
 
 for (sort keys %ckname) {
     print PP "PERL_CKDEF($_)\n";
+    print PPSYM "$_\n";
 #OP *\t", &tab(3,$_),"(OP* o);\n";
 }