Subversion Repositories wimsdev

Rev

Rev 8633 | Rev 8685 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8633 Rev 8636
Line 22... Line 22...
22 
   $text =~ s/^(\s+)//g;
 22 
   $text =~ s/^(\s+)//g;
23 
   $text=~ s/\n+/\n/g;
 23 
   $text=~ s/\n+/\n/g;
24 
   my @L = sortuniq(split("\n",$text));
 24 
   my @L = sortuniq(split("\n",$text));
25 
   for my $l (@L) {
 25 
   for my $l (@L) {
26 
     my @la=split(":", $l) ;
 26 
     my @la=split(":", $l) ;
27 
     $ref{canonify($la[0])}=$la[1] if ($la[1]);
 27 
     $ref{canonify($la[0])}=join(':',@la[1..@la-1]) if ($la[1]);
28 
    }
 28 
    }
29 
   }
 29 
   }
30 
  close IN;
 30 
  close IN;
31 
 %ref;
 31 
 %ref;
32 
}
 32 
}