X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/3ba535d4e801af1d25bd0571c8a4a4351e3b2545..95df6a6a2bb9185cceb1fcf205b4f9f07690ca27:/modules/Config/DevEdit.pm?ds=sidebyside diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm index fcad456..4077b30 100644 --- a/modules/Config/DevEdit.pm +++ b/modules/Config/DevEdit.pm @@ -5,8 +5,8 @@ package Config::DevEdit; # # Read and parse the configuration files # -# Author: Patrick Canterino -# Last modified: 2004-10-28 +# Author: Patrick Canterino +# Last modified: 2004-11-24 # use strict; @@ -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);