Changeset 19152

Timestamp:

12/10/07 19:27:25 (12 months ago)

Author:

fglock

Message:

[kp6-kp6] Pad.pm - fixed a Perl 6 call

Location:

v6/v6-KindaPerl6

Files:

• compiled/perl5-kp6-kp6/lib/KindaPerl6/Runtime/Perl5/Pad.pm (modified) (1 diff)
• libkp6/KindaPerl6/Runtime/Perl5/Pad.pm (modified) (1 diff)

v6/v6-KindaPerl6/compiled/perl5-kp6-kp6/lib/KindaPerl6/Runtime/Perl5/Pad.pm

@@ -248 +248 @@
     for my $decl ( @{$self->{variable_names}} ) {
         return $decl
-            if ( _var_eq( $decl->var, $var ) );
+            if ( _var_eq( ::DISPATCH( $decl, 'var' ), $var ) );
     }
     if ( $self->{parent} ) {

v6/v6-KindaPerl6/libkp6/KindaPerl6/Runtime/Perl5/Pad.pm

@@ -248 +248 @@
     for my $decl ( @{$self->{variable_names}} ) {
         return $decl
-            if ( _var_eq( $decl->var, $var ) );
+            if ( _var_eq( ::DISPATCH( $decl, 'var' ), $var ) );
     }
     if ( $self->{parent} ) {