Subversion Repositories gelsvn

Rev

Rev 107 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 198
Line 230... Line 230...
230 
  my($fromprj) = 0;
 230 
  my($fromprj) = 0;
231 
  my($scope)   = undef;
 231 
  my($scope)   = undef;
232 
  my($sname)   = undef;
 232 
  my($sname)   = undef;
233 
  my($adjust)  = 1;
 233 
  my($adjust)  = 1;
234 
 
 234 
 
- 
 
 235 
  ## $name should always be all lower-case
- 
 
 236 
  $name = lc($name);
- 
 
 237 
 
235 
  ## First, check the temporary scope (set inside a foreach)
 238 
  ## First, check the temporary scope (set inside a foreach)
236 
  if ($counter >= 0) {
 239 
  if ($counter >= 0) {
237 
    ## Find the outer most scope for our variable name
 240 
    ## Find the outer most scope for our variable name
238 
    for(my $index = $counter; $index >= 0; --$index) {
 241 
    for(my $index = $counter; $index >= 0; --$index) {
239 
      if (defined $self->{'foreach'}->{'scope_name'}->[$index]) {
 242 
      if (defined $self->{'foreach'}->{'scope_name'}->[$index]) {
Line 1294... Line 1297...
1294 
sub doif_duplicate_index {
 1297 
sub doif_duplicate_index {
1295 
  my($self)  = shift;
 1298 
  my($self)  = shift;
1296 
  my($value) = shift;
 1299 
  my($value) = shift;
1297 
 
 1300 
 
1298 
  if (defined $value) {
 1301 
  if (defined $value) {
1299 
    my($base) = $self->basename($value);
 1302 
    my($base) = lc($self->basename($value));
1300 
    my($path) = $self->tp_dirname($value);
 1303 
    my($path) = $self->tp_dirname($value);
1301 
 
 1304 
 
1302 
    if (!defined $self->{'dupfiles'}->{$base}) {
 1305 
    if (!defined $self->{'dupfiles'}->{$base}) {
1303 
      $self->{'dupfiles'}->{$base} = [$path];
 1306 
      $self->{'dupfiles'}->{$base} = [$path];
1304 
    }
 1307 
    }