Slight tweak to parse() method.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@275 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
d47975d259
commit
ae7fb643c2
1 changed files with 2 additions and 1 deletions
|
|
@ -214,7 +214,7 @@ PERL5::parse() {
|
|||
// Run the parser
|
||||
|
||||
yyparse();
|
||||
fputs(vinit.get(),f_wrappers);
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -508,6 +508,7 @@ void PERL5::close(void)
|
|||
vinit << tab4 << "XSRETURN(1);\n"
|
||||
<< "}\n";
|
||||
|
||||
fputs(vinit.get(),f_wrappers);
|
||||
fprintf(f_pm,"package %s;\n", package);
|
||||
|
||||
if (!is_static) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue