|
|
# This is probably the result of a direct suffix rule. | # This is probably the result of a direct suffix rule. |
# In this case we just accept the rewrite. | # In this case we just accept the rewrite. |
$object = "$base$extension"; | $object = "$base$extension"; |
|
if ($directory ne '') |
|
{ |
|
$object = $directory . '/' . $object; |
|
} |
$linker = ''; | $linker = ''; |
} | } |
else | else |
|
|
| |
# For Java, the way we're handling it right now, a | # For Java, the way we're handling it right now, a |
# `..' component doesn't make sense. | # `..' component doesn't make sense. |
if ($lang->name eq 'java' && $object =~ /(\/|^)\.\.\//) |
if ($lang && $lang->name eq 'java' && $object =~ /(\/|^)\.\.\//) |
{ | { |
err_am "`$full' should not contain a `..' component"; | err_am "`$full' should not contain a `..' component"; |
} | } |