perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r32020 - trunk/src

Subject: [svn:parrot] r32020 - trunk/src
From:
Date: Sat, 18 Oct 2008 13:22:47 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: chromatic
Date: Sat Oct 18 13:22:46 2008
New Revision: 32020

Modified:
   trunk/src/multidispatch.c

Log:
[src] Removed logic to strip leading __ from old multidispatch names.

Modified: trunk/src/multidispatch.c
==============================================================================
--- trunk/src/multidispatch.c   (original)
+++ trunk/src/multidispatch.c   Sat Oct 18 13:22:46 2008
@@ -575,10 +575,6 @@
     sig_object = Parrot_build_sig_object_from_varargs(interp, sig, args);
     va_end(args);
 
-    /* remove leading "__" from old-style MMD name */
-    if (name[0] == '_' && name[1] == '_')
-        name += 2;
-
     sub = Parrot_mmd_find_multi_from_sig_obj(interp, const_string(interp, 
name), sig_object);
 
     if (PMC_IS_NULL(sub))

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r32020 - trunk/src, chromatic <=