X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/45dab0a69a6d22dd13aa625970c4b673afea535c..28756a17617639eff8ce8d5014d3ec0acdd146d2:/modules/Config/DevEdit.pm?ds=sidebyside diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm index 24b3fe1..0286f5a 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-10-28 +# Last modified: 2004-11-24 # 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) @@ -53,7 +53,7 @@ sub parse_config($) my $file = shift; local *CF; - open(CF,"<$file") or croak("Open $file: $!"); + open(CF,"<".$file) or croak("Open $file: $!"); read(CF, my $data, -s $file); close(CF);