|
Lines 1690-1695
Link Here
|
| 1690 |
# This is probably the result of a direct suffix rule. |
1690 |
# This is probably the result of a direct suffix rule. |
| 1691 |
# In this case we just accept the rewrite. |
1691 |
# In this case we just accept the rewrite. |
| 1692 |
$object = "$base$extension"; |
1692 |
$object = "$base$extension"; |
|
|
1693 |
if ($directory ne '') |
| 1694 |
{ |
| 1695 |
$object = $directory . '/' . $object; |
| 1696 |
} |
| 1693 |
$linker = ''; |
1697 |
$linker = ''; |
| 1694 |
} |
1698 |
} |
| 1695 |
else |
1699 |
else |
|
Lines 1759-1765
Link Here
|
| 1759 |
|
1763 |
|
| 1760 |
# For Java, the way we're handling it right now, a |
1764 |
# For Java, the way we're handling it right now, a |
| 1761 |
# `..' component doesn't make sense. |
1765 |
# `..' component doesn't make sense. |
| 1762 |
if ($lang->name eq 'java' && $object =~ /(\/|^)\.\.\//) |
1766 |
if ($lang && $lang->name eq 'java' && $object =~ /(\/|^)\.\.\//) |
| 1763 |
{ |
1767 |
{ |
| 1764 |
err_am "`$full' should not contain a `..' component"; |
1768 |
err_am "`$full' should not contain a `..' component"; |
| 1765 |
} |
1769 |
} |
