Changeset 3941 for src/perl5

Timestamp:

05/27/05 02:41:26 (4 years ago)

Author:

clkao

svk:copy_cache_prev:

5515

Message:

use less 'debug';

Location:

src/perl5

Files:

• perl5.c (modified) (2 diffs)
• pugsembed.c (modified) (2 diffs)

src/perl5/perl5.c

@@ -20 +20 @@
 "our $AUTOLOAD;"
 "sub AUTOLOAD { }"
-"warn 'perl5 glue compiled';"
 
 "package pugs::guts;"
@@ -140 +139 @@
 
     __init = 1;
-    fprintf(stderr, "hello, perl5\n");
 
     newXS((char*) "pugs::guts::invoke", _pugs_guts_invoke, (char*)__FILE__);

src/perl5/pugsembed.c

@@ -19 +19 @@
     SV *stack[8];
 
-    fprintf(stderr, "pugs mkvalref: %p\n", val);
     sv_setref_pv(sv, "pugs", val);
 
@@ -25 +24 @@
     isa[1] = NULL;
     if (__init && pugs_ValToIv(pugs_Apply(pugs_PvToVal("&isa"), val, isa))) {
-        fprintf(stderr, "got a code!!\n");
         stack[0] = sv;
         stack[1] = NULL;