From b79cc8f9b5dc83b45db1f82933eaa55d7546351c Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 20 Apr 2012 21:48:04 +0200
Subject: initial packaging working

---
 lib/Loadbars/Config.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib')

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;
     };
-- 
cgit v1.2.3