From: pcanterino <> Date: Thu, 28 Oct 2004 09:45:07 +0000 (+0000) Subject: Removing one and more whitespace makes more sense than removing no, one and more... X-Git-Tag: version_2_2~20 X-Git-Url: https://git.p6c8.net/devedit.git/commitdiff_plain/45dab0a69a6d22dd13aa625970c4b673afea535c?hp=b5ad046f9519385786cb0faa8dbf165f6d733dee Removing one and more whitespace makes more sense than removing no, one and more whitespaces. --- diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm index e423819..24b3fe1 100644 --- a/modules/Config/DevEdit.pm +++ b/modules/Config/DevEdit.pm @@ -6,7 +6,7 @@ package Config::DevEdit; # Read and parse the configuration files # # Author: Patrick Canterino -# Last modified: 2004-04-25 +# Last modified: 2004-10-28 # use strict; @@ -42,7 +42,7 @@ sub read_config($) # parse_config() # -# Parse an INI-style configuration file +# Parse a configuration file # # Params: Path to configuration file # @@ -69,10 +69,10 @@ sub parse_config($) # Remove whitespaces at the beginning and at the end - $key =~ s/^\s*//g; - $key =~ s/\s*$//g; - $value =~ s/^\s*//g; - $value =~ s/\s*$//g; + $key =~ s/^\s+//g; + $key =~ s/\s+$//g; + $value =~ s/^\s+//g; + $value =~ s/\s+$//g; croak "Double defined value '$key' in configuration file '$file'" if($config->{$key});