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

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

From:
bernhard
Date:
January 24, 2009 13:51
Subject:
[svn:parrot] r35967 - trunk/languages/pipp/src/pct
Message ID:
20090124215140.932F2CB9AE@x12.develooper.com
Author: bernhard
Date: Sat Jan 24 13:51:39 2009
New Revision: 35967

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

Log:
[Pipp] name mangling for 'use' vars is not necessary

Modified: trunk/languages/pipp/src/pct/actions.pm
==============================================================================
--- trunk/languages/pipp/src/pct/actions.pm	(original)
+++ trunk/languages/pipp/src/pct/actions.pm	Sat Jan 24 13:51:39 2009
@@ -455,8 +455,7 @@
     # 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' )) {
+    unless @?BLOCK[0].symbol( ~$<var_name> ) {
         @?BLOCK[0].symbol(
             :scope('lexical'),
             ~$<var_name>
@@ -601,7 +600,7 @@
         # declare the bound vars a lexical
         if +$<bind_list> == 1 {
             for $<bind_list>[0]<var_name> {
-                $block.symbol( ~$_ ~ '_hidden', :comment('bound with use') );
+                $block.symbol( ~$_, :comment('bound with use') );
             }
         }
         @?BLOCK.unshift( $block );



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