X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/e34b89e8690b4766fc19a868ee97aa30c1ac3143..73f2498331782691215bb4cc02fc4431145b7027:/modules/Config/DevEdit.pm diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm index e423819..fcad456 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; @@ -24,7 +24,7 @@ use base qw(Exporter); # # Read the configuration files of Dev-Editor # -# Params: Path to configuration file +# Params: Path to main configuration file # # Return: Configuration (Hash Reference) @@ -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});