Changeset 19152
- Timestamp:
- 12/10/07 19:27:25 (12 months ago)
- Location:
- v6/v6-KindaPerl6
- Files:
-
- 2 modified
-
compiled/perl5-kp6-kp6/lib/KindaPerl6/Runtime/Perl5/Pad.pm (modified) (1 diff)
-
libkp6/KindaPerl6/Runtime/Perl5/Pad.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
v6/v6-KindaPerl6/compiled/perl5-kp6-kp6/lib/KindaPerl6/Runtime/Perl5/Pad.pm
r19137 r19152 248 248 for my $decl ( @{$self->{variable_names}} ) { 249 249 return $decl 250 if ( _var_eq( $decl->var, $var ) );250 if ( _var_eq( ::DISPATCH( $decl, 'var' ), $var ) ); 251 251 } 252 252 if ( $self->{parent} ) { -
v6/v6-KindaPerl6/libkp6/KindaPerl6/Runtime/Perl5/Pad.pm
r19137 r19152 248 248 for my $decl ( @{$self->{variable_names}} ) { 249 249 return $decl 250 if ( _var_eq( $decl->var, $var ) );250 if ( _var_eq( ::DISPATCH( $decl, 'var' ), $var ) ); 251 251 } 252 252 if ( $self->{parent} ) {
