--- a/sysdeftools/validate/checklinks.pl	Fri Jun 25 17:18:04 2010 +0100
+++ b/sysdeftools/validate/checklinks.pl	Mon Jun 28 10:19:24 2010 +0100
@@ -70,7 +70,7 @@
 my @p2=reverse(split(/[\\\/]/,$realloc));
 
 shift(@p1);shift(@p2); # don't care abt file name
-while(lc($p1[0]) eq lc($p2[0])) {shift(@p1);shift(@p2)}
+while(lc($p1[0]) eq lc($p2[0]) && scalar(@p1)) {shift(@p1);shift(@p2)}
 
 $unitmap{join('/',reverse(@p1))} = join("/",reverse(@p2));