Changeset 21600 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm

Timestamp:

07/28/08 22:20:34 (5 months ago)

Author:

fglock

Message:

[v6.pm] added bare sigils

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm

@@ -456 +456 @@
         $m = undef;
         if ( $m1 && $m2 ) {
-            if ( $m1->to < $m2->to ) {
+            if ( exists $m2->()->{bare_sigil} && $m2->tail =~ /^[\,\)]/ ) {
                 $m = $m2
             }
             else {
-                $m = $m1
+                if ( $m1->to < $m2->to ) {
+                    $m = $m2
+                }
+                else {
+                    $m = $m1
+                }
             }
         }