Changeset 4052 for src/perl5

Timestamp:

05/28/05 14:54:11 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* remove the arbitary 128-char limit on perl5 calling pugs

methods, as the leading '&' is not mandatory in callconv.

Files:

• src/perl5/perl5.c (modified) (1 diff)

src/perl5/perl5.c

@@ -40 +40 @@
     }
     else {
-        char pugs_method[128], *method, *fullname;
+        char *method, *fullname;
         fullname = SvPV_nolen(sv);
         method = strrchr(fullname, ':');
         method = method ? method+1 : fullname;
-        snprintf(pugs_method, 128, "&%s", method);
-        val = pugs_PvToVal(pugs_method);
+        val = pugs_PvToVal(method);
     }
     inv = SvOK(ST(1)) ? pugs_SvToVal(ST(1)) : NULL;