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:
Dave Beazley 2000-02-26 20:35:55 +00:00
commit ae7fb643c2

View file

@ -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) {