add missing undef guard in derel
parent
1a09cddd39
commit
673d6c9580
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue