aboutsummaryrefslogtreecommitdiff
path: root/sboconfig
diff options
context:
space:
mode:
Diffstat (limited to 'sboconfig')
-rwxr-xr-xsboconfig3
1 files changed, 2 insertions, 1 deletions
diff --git a/sboconfig b/sboconfig
index e9a2ff6..4cb7278 100755
--- a/sboconfig
+++ b/sboconfig
@@ -14,6 +14,7 @@ use File::Basename;
use Getopt::Std;
use File::Copy;
use File::Path qw(make_path);
+use File::Temp qw(tempfile);;
my %config = %SBO::Lib::config;
my $self = basename ($0);
@@ -80,7 +81,7 @@ my $conf_file = $SBO::Lib::conf_file;
# safely modify our conf file; copy to a temp location, edit the temp file,
# move the edited file into place
sub config_write {
- script_error ('config_write requires two arguments.') unless exists $_[1];
+ exists $_[1] or script_error ('config_write requires two arguments.');
my ($key, $val) = @_;
if (! -d $conf_dir) {
mkdir ($conf_dir) or die "Unable to create $conf_dir. Exiting.\n";