| … | |
… | |
| 68 | $pattern = '^$' if $pattern eq ''; |
68 | $pattern = '^$' if $pattern eq ''; |
| 69 | return $pattern; |
69 | return $pattern; |
| 70 | } |
70 | } |
| 71 | |
71 | |
| 72 | # |
72 | # |
| 73 | # Add lower-case alias for case-insensitive strings |
73 | # Add upper-case alias for case-insensitive strings |
| 74 | # (so we can always find their definitions) |
74 | # (so we can always find their definitions) |
| 75 | # |
75 | # |
| 76 | sub add { |
76 | sub add { |
| 77 | my $self = shift; return if scalar(@_) == 0; |
77 | my $self = shift; return if scalar(@_) == 0; |
| 78 | my $data = $self->{context}{$self->{dataName}}; |
78 | my $data = $self->{context}{$self->{dataName}}; |
| 79 | $self->SUPER::add(@_); |
79 | $self->SUPER::add(@_); |
| 80 | my %D = (@_); |
80 | my %D = (@_); |
| 81 | foreach my $x (keys %D) { |
81 | foreach my $x (keys %D) { |
| 82 | $data->{uc($x)} = {alias => $x} |
82 | $data->{uc($x)} = {alias => $x, hidden => 1} |
| 83 | unless $data->{$x}{caseSensitive} || uc($x) eq $x; |
83 | unless $data->{$x}{caseSensitive} || uc($x) eq $x; |
| 84 | } |
84 | } |
| 85 | } |
85 | } |
| 86 | |
86 | |
| 87 | # |
87 | # |
Parent Directory
| 
Revision Log
| 
Patch