aboutsummaryrefslogtreecommitdiff
path: root/sboconfig
diff options
context:
space:
mode:
Diffstat (limited to 'sboconfig')
-rwxr-xr-xsboconfig11
1 files changed, 1 insertions, 10 deletions
diff --git a/sboconfig b/sboconfig
index ca6d1fa..604a816 100755
--- a/sboconfig
+++ b/sboconfig
@@ -13,7 +13,7 @@
use 5.16.0;
use strict;
use warnings FATAL => 'all';
-use SBO::Lib qw/ usage_error script_error $tempdir open_read open_fh %config $conf_dir $conf_file show_version /;
+use SBO::Lib qw/ slurp usage_error script_error $tempdir open_fh %config $conf_dir $conf_file show_version /;
use File::Basename;
use Getopt::Long qw(:config no_ignore_case_always);
use File::Copy;
@@ -158,15 +158,6 @@ sub config_write {
print {$conffh} $conf;
}
-sub slurp {
- my $fn = shift;
- return undef unless -f $fn;
- my ($fh, $exit) = open_read($fn);
- return undef if $exit;
- local $/;
- return scalar readline($fh);
-}
-
# make sure there are no duplicate keys in the config
sub _fixup_conf {
my @lines = split /\n/, $_[0];