remove debugging statements

sorear · Oct 5, 2011 · 23f1b2e · 23f1b2e
1 parent fce895a
commit 23f1b2e
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/lib/Perl5Interpreter.cs b/lib/Perl5Interpreter.cs
@@ -60,7 +60,6 @@ int argument_n
     }
     public Variable Eval(string code) {
         IntPtr sv = EvalPerl5(code);
-        Console.WriteLine("# wrapping/converting SV");
         return SVToVariable(sv);
     }
 }

diff --git a/lib/p5embed.c b/lib/p5embed.c
@@ -19,29 +19,23 @@ xs_init(pTHX)
 static PerlInterpreter *my_perl;
 void p5embed_initialize()
 {
-  printf("# initialising perl\n");
   PERL_SYS_INIT3(0,NULL,NULL);
   PerlInterpreter* my_perl = perl_alloc();
   perl_construct(my_perl);
   char *embedding[] = { "", "-e", "0" };
   perl_parse(my_perl, xs_init, 3, embedding, NULL);
   PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
 //  eval_pv("use lib 'perl5';use Niecza::Interoperability",TRUE);
-  printf("# initialised perl\n");
 }
 
 SV* p5embed_eval(char* code) { 
-  printf("# evaling code <%s>...\n",code);
   eval_pv("1",TRUE);
-  printf("# evaled 1\n");
   SV* ret = eval_pv(code,TRUE);
-  printf("# survived evaling code...\n");
   return ret;
 }
 
 void p5embed_dispose()
 {
-  printf("# disposing of perl\n");
   perl_destruct(my_perl);
   perl_free(my_perl);
   PERL_SYS_TERM();