add missing undef guard in derel

master
Joey Hess 2010-04-21 19:45:56 -04:00
parent 1a09cddd39
commit 673d6c9580
1 changed files with 1 additions and 1 deletions

View File

@ -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;