Changeset 21568 for perl5

Timestamp:

07/27/08 15:43:53 (4 months ago)

Author:

fglock

Message:

[PCR] fixed name mangler

Files:

• perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Common.pm (modified) (3 diffs)

perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Common.pm

@@ -21 +21 @@
 );
 
-our %perl6_name = (
+my @names = (
     # perl 5        => # perl 6
     '%::ENV'        => '%*ENV',  
@@ -43 +43 @@
     '$::_V6_COMPILER_VERSION' => '$?VERSION',
 );
-our %perl5_name = reverse %perl6_name;
+our %perl6_name = @names;
+our %perl5_name = reverse @names;
 
 sub mangle_ident {
@@ -54 +55 @@
 sub mangle_var {
     my $s = $_[0];
-    #warn "mangle: $s";
     return $perl5_name{$s} if exists $perl5_name{$s};
     substr($s,1) =~ s/ ([^a-zA-Z0-9_:] | (?<!:):(?!:)) / '_'.ord($1).'_' /xge;