equal
deleted
inserted
replaced
68 |
68 |
69 my @p1=reverse(split(/[\\\/]/,$sysdef)); |
69 my @p1=reverse(split(/[\\\/]/,$sysdef)); |
70 my @p2=reverse(split(/[\\\/]/,$realloc)); |
70 my @p2=reverse(split(/[\\\/]/,$realloc)); |
71 |
71 |
72 shift(@p1);shift(@p2); # don't care abt file name |
72 shift(@p1);shift(@p2); # don't care abt file name |
73 while(lc($p1[0]) eq lc($p2[0])) {shift(@p1);shift(@p2)} |
73 while(lc($p1[0]) eq lc($p2[0]) && scalar(@p1)) {shift(@p1);shift(@p2)} |
74 |
74 |
75 $unitmap{join('/',reverse(@p1))} = join("/",reverse(@p2)); |
75 $unitmap{join('/',reverse(@p1))} = join("/",reverse(@p2)); |
76 |
76 |
77 |
77 |
78 # rootmap is a mapping from the filesystem to the paths in the doc |
78 # rootmap is a mapping from the filesystem to the paths in the doc |