take more advantage of getTestCollateralPath file concat

This commit is contained in:
Colin Kuskie 2008-02-09 04:44:15 +00:00
parent 92813f394d
commit 04da356822
4 changed files with 5 additions and 5 deletions

View file

@ -275,7 +275,7 @@ $session->user({userId => 1});
sub installBadLocale {
copy(
File::Spec->catfile(WebGUI::Test->getTestCollateralPath, 'BadLocale.pm'),
WebGUI::Test->getTestCollateralPath('BadLocale.pm'),
File::Spec->catfile(WebGUI::Test->lib, qw/WebGUI i18n BadLocale.pm/)
);
}