Ticket #1296: vtableanon.patch

src/global.c

@@ -609 +609 @@
     /* store a :multi sub */
     if (!PMC_IS_NULL(PMC_sub(sub)->multi_signature))
         store_sub_in_multi(interp, sub, ns);
-    /* store other subs (as long as they're not :anon) */
-    else if (!(PObj_get_FLAGS(sub) & SUB_FLAG_PF_ANON)) {
+    /* store other subs (as long as they're not :anon, but the namespace will
+     * detect that) */
+    else {
         STRING * const name   = PMC_sub(sub)->name;
         PMC    * const nsname = PMC_sub(sub)->namespace_name;
 

(a) /dev/null vs. (b) b/t/compilers/imcc/syn/sub.t

@@ +1 @@
+#!perl
+# Copyright (C) 2005, The Perl Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Parrot::Test tests => 1;
+
+##############################
+
+pir_output_is( <<'CODE', <<'OUTPUT', ":anon :vtable should work" );
+.sub main :main
+    $P0 = newclass "Foo"
+    $P0 = new "Foo"
+    $I0 = $P0
+    $S0 = $I0
+    say $S0
+.end
+
+.namespace ["Foo"]
+
+.sub get_integer :vtable :anon
+    .return (42)
+.end
+CODE
+42
+OUTPUT
+
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: