add missing undef guard in derel

2010-04-21 19:45:56 -04:00 · 2010-04-21 19:45:56 -04:00 · 673d6c9580
parent 1a09cddd39
commit 673d6c9580
1 changed files with 1 additions and 1 deletions
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@ -2245,7 +2245,7 @@ sub derel ($$) {
 	if ($path =~ m!^\./!) {
 		$from=~s#/?[^/]+$## if defined $from;
 		$path=~s#^\./##;
-		$path="$from/$path" if length $from;
+		$path="$from/$path" if defined $from && length $from;
 	}

 	return $path;