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

[bernhard]

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 );