develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34501 - branches/rvar/languages/perl6/src/parser

From:
pmichaud
Date:
December 28, 2008 09:01
Subject:
[svn:parrot] r34501 - branches/rvar/languages/perl6/src/parser
Message ID:
20081228170127.6BA5DCB9FA@x12.develooper.com
Author: pmichaud
Date: Sun Dec 28 09:01:26 2008
New Revision: 34501

Modified:
   branches/rvar/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Put a type property on a container only if there is one.


Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm	(original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm	Sun Dec 28 09:01:26 2008
@@ -2015,7 +2015,10 @@
         my $symbol := $?BLOCK.symbol( $past.name() );
         $symbol<scope> := $scope;
         $past.viviself( $symbol<viviself> );
-        $past := PAST::Op.new( :pirop('setprop'), $past, 'type', $symbol<type>[0] );
+        if $symbol<type> {
+            $past := PAST::Op.new( :pirop('setprop'), 
+                                   $past, 'type', $symbol<type>[0] );
+        }
     }
     make $past;
 }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About