+ if (-l $binfn) {
+ my $target=readlink $binfn or die $binfn;
+ $binfn=~s{^[.]}{};
+ my $ref=\$SYMLINK{$binfn};
+ die if $$ref;
+ if ($target=~m{^/}) {
+ $$ref=$target;
+#warn "$binfn,target=rel=$$ref\n";
+ } else {
+ my $base=dirname(".$binfn");
+ my $abs=File::Spec->rel2abs($target,$base);
+ $$ref="/".File::Spec->abs2rel($abs);
+#warn "$binfn,base=$base,target=$target,abs=$abs,rel=$$ref\n";
+ }
+ return;
+ }