summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2012-04-20 21:48:04 +0200
committerPaul Buetow <paul@buetow.org>2012-04-20 21:48:04 +0200
commitb79cc8f9b5dc83b45db1f82933eaa55d7546351c (patch)
treee66ff2cf07bc8ebd4a32a60149af74c858ee2a27 /lib
parent07280cf0d2fd6602aa1a9d5a04b53172ad9f5a1d (diff)
initial packaging working
Diffstat (limited to 'lib')
-rw-r--r--lib/Loadbars/Config.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Loadbars/Config.pm b/lib/Loadbars/Config.pm
index e9c7218..57fad2f 100644
--- a/lib/Loadbars/Config.pm
+++ b/lib/Loadbars/Config.pm
@@ -41,7 +41,8 @@ our %I : shared;
sub read () {
return unless -f Loadbars::Constants->CONFFILE;
- display_info("Reading configuration from " . Loadbars::Constants->CONFFILE);
+ display_info(
+ "Reading configuration from " . Loadbars::Constants->CONFFILE );
open my $conffile, Loadbars::Constants->CONFFILE
or die "$!: " . Loadbars::Constants->CONFFILE . "\n";
@@ -67,7 +68,8 @@ sub read () {
}
else {
display_info(
-"Setting $key=$val, it might be overwritten by command line params.");
+"Setting $key=$val, it might be overwritten by command line params."
+ );
$C{$key} = $val;
}
}
@@ -76,11 +78,11 @@ sub read () {
}
sub write () {
- display_warn("Overwriting config file " . Loadbars::Constants->CONFFILE)
+ display_warn( "Overwriting config file " . Loadbars::Constants->CONFFILE )
if -f Loadbars::Constants->CONFFILE;
open my $conffile, '>', Loadbars::Constants->CONFFILE or do {
- display_warn("$!: " . Loadbars::Constants->CONFFILE);
+ display_warn( "$!: " . Loadbars::Constants->CONFFILE );
return undef;
};