fix test collateral

This commit is contained in:
Graham Knop 2010-03-11 08:37:16 -06:00
parent 39adb44007
commit 2162ecba8c
2 changed files with 2 additions and 2 deletions

View file

@ -53,7 +53,7 @@ else {
if (defined $asset) {
my $file;
if ($toFile) {
open $file '>', $toFile or die "Can't open file $toFile for writing. $!";
open $file, '>', $toFile or die "Can't open file $toFile for writing. $!";
$session->output->setHandle($file);
}
my $content = $asset->www_view;

View file

@ -43,7 +43,7 @@ use WebGUI::Paths -inc;
our $WEBGUI_TEST_ROOT = File::Spec->catdir(
File::Spec->catpath((File::Spec->splitpath(__FILE__))[0,1], ''),
(File::Spec->updir) x 2, 'supporting_collateral'
(File::Spec->updir) x 2
);
our $WEBGUI_TEST_COLLATERAL = File::Spec->catdir(
$WEBGUI_TEST_ROOT,