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
}