diff options
| author | Paul Buetow <paul@buetow.org> | 2012-04-20 21:48:04 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2012-04-20 21:48:04 +0200 |
| commit | b79cc8f9b5dc83b45db1f82933eaa55d7546351c (patch) | |
| tree | e66ff2cf07bc8ebd4a32a60149af74c858ee2a27 /lib | |
| parent | 07280cf0d2fd6602aa1a9d5a04b53172ad9f5a1d (diff) | |
initial packaging working
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Loadbars/Config.pm | 10 |
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; }; |
