Subversion Repositories gelsvn

Rev

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

Rev 107 Rev 198
Line 49... Line 49...
49 
  my($errorString) = undef;
 49 
  my($errorString) = undef;
50 
  my($current)     = $self->{'current'};
 50 
  my($current)     = $self->{'current'};
51 
 
 51 
 
52 
  if ($line eq '') {
 52 
  if ($line eq '') {
53 
  }
 53 
  }
54 
  elsif ($line =~ /^([\w\s]+)\s*{$/) {
 54 
  elsif ($line =~ /^([\w\s\(\)\.]+)\s*{$/) {
55 
    ## Entering a new scope
 55 
    ## Entering a new scope
56 
    my($rname) = $1;
 56 
    my($rname) = $1;
57 
    $rname =~ s/\s+$//;
 57 
    $rname =~ s/\s+$//;
58 
    my($name) = lc($rname);
 58 
    my($name) = lc($rname);
59 
    $self->{'realnames'}->{$name} = $rname;
 59 
    $self->{'realnames'}->{$name} = $rname;