oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "Temporary config file fix."

Browse source 
This reverts commit b74d21102c.
This commit is contained in:
Colin Kuskie 2010-06-14 14:45:28 -07:00
parent aada6e3c83
commit ce6f70ca94
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/lib/WebGUI/Test.pm
View file

@ -108,7 +108,7 @@ sub import {
unless -f _; unless -f _;
die "WEBGUI_CONFIG path '$config' is not readable by effective uid '$>'.\n" die "WEBGUI_CONFIG path '$config' is not readable by effective uid '$>'.\n"
unless -r _; unless -r _;
$original_config_file = $config; $original_config_file = abs2rel( $config, catdir( $CLASS->root, 'etc') );
} }
goto &{ $_[0]->can('SUPER::import') }; goto &{ $_[0]->can('SUPER::import') };
} }
@ -382,8 +382,7 @@ sub file {
OPEN => 0, OPEN => 0,
TMPDIR => 1, TMPDIR => 1,
); );
File::Copy::copy($original_config_file, $config_copy_abs) File::Copy::copy($original_config_file, $config_copy_abs);
or die "Error creating temp config file: $!";
$CLASS->addToCleanup(sub { $CLASS->addToCleanup(sub {
unlink $config_copy_abs; unlink $config_copy_abs;
undef $config_copy; undef $config_copy;