From 0248fba79ec8a31a398adf6e91c591c2986e3e1c Mon Sep 17 00:00:00 2001 From: freesource Date: Fri, 30 Nov 2001 04:40:34 +0000 Subject: [PATCH] More changes to make_link_absolute, since return value and value (what Tom had a tendency to do) don't mix and match happily. --- BootRoot/Yard.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/BootRoot/Yard.pm b/BootRoot/Yard.pm index 8b495ba..d865640 100644 --- a/BootRoot/Yard.pm +++ b/BootRoot/Yard.pm @@ -1724,11 +1724,14 @@ sub make_link_absolute { my $link; if ($target =~ m|^/|) { - $target; # Target is absolute, just return it - } else { - $link =cleanup_link(dirname($file) . "/$target"); + return $target; # Target is absolute, just return it + } else { ## and use return --freesource + + $link = cleanup_link(dirname($file) . "/$target"); + } + $link =~ s,^\.,,; # When there is one file dir eq . --freesource return $link;