Changeset 22585 for src/perl6

Timestamp:

10/11/08 20:55:51 (6 weeks ago)

Author:

lwall

Message:

[STD] implement [...] and {...} subsigs, rafl++ and moritz++
[viv] warning suppression

Location:

src/perl6

Files:

• STD.pm (modified) (1 diff)
• viv (modified) (2 diffs)

src/perl6/STD.pm

@@ -2672 +2672 @@
     ]
 
+    <.ws>
+    $<subsig> = [
+    | '[' ~ ']' <signature>
+    | <?before '{'> <!{ $+GOAL eq '{'}>
+      '{' ~ '}' <signature>
+    ]*
+
     <trait>*
 

src/perl6/viv

@@ -189 +189 @@
             my @zyg = $self->get_zygs;
             my $arity = $self->{ARITY} // '';
+            my $sym = $self->{sym} // '';
             if ($arity eq 'BINARY') {
                 $text .= $zyg[0] . $zyg[2] . $zyg[1];
@@ -200 +201 @@
                 }
             }
-            elsif ($self->{sym} eq 'identifier') {
+            elsif ($sym eq 'identifier') {
                 $text .= join('', reverse @zyg);
             }