develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35911 - trunk/languages/pipp/src/pct

From:
bernhard
Date:
January 23, 2009 06:01
Subject:
[svn:parrot] r35911 - trunk/languages/pipp/src/pct
Message ID:
20090123140103.8A950CB9AE@x12.develooper.com
Author: bernhard
Date: Fri Jan 23 06:01:02 2009
New Revision: 35911

Modified:
   trunk/languages/pipp/src/pct/actions.pm

Log:
[Pipp] the postfix '_hidden' is not used

Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Fri Jan 23 06:01:02 2009
@@ -442,9 +442,15 @@
 }
 
 method simple_var($/) {
+
+    # variables are 'lexical' in the current block,
+    # unless they are found in the symbol table of the current block
     our @?BLOCK;
-    unless ( @?BLOCK[0].symbol( ~$<var_name> ) || @?BLOCK[0].symbol( ~$<var_name> ~ '_hidden' ) ) {
-        @?BLOCK[0].symbol( ~$<var_name>, :scope('lexical') );
+    unless ( @?BLOCK[0].symbol( ~$<var_name> ) ) {
+        @?BLOCK[0].symbol(
+            :scope('lexical'),
+            ~$<var_name>
+        );
         @?BLOCK[0].push(
             PAST::Var.new(
                 :name(~$<var_name>),



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