[perl #41268] [PATCH] Fix C error at src/pdb.c

[Lee Duhem]

# New Ticket Created by  "Lee Duhem" 
# Please include the string:  [perl #41268]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=41268 >


When C<make world>, I get these error:

src/pdb.c: In function `main':
src/pdb.c:193: error: too few arguments to function `imc_cleanup'

Attached patch fix this.

Index: src/pdb.c
===================================================================
--- src/pdb.c   (revision 16622)
+++ src/pdb.c   (working copy)
@@ -190,7 +190,7 @@
         yyparse(yyscanner, (void *) interp);
         imc_compile_all_units(interp);
 
-        imc_cleanup(interp);
+        imc_cleanup(interp, yyscanner);
 
         fclose(imc_yyin_get(yyscanner));
         PackFile_fixup_subs(interp, PBC_POSTCOMP, NULL);