#
# Read and parse the configuration files
#
-# Author: Patrick Canterino <patshaping@gmx.net>
-# Last modified: 2004-10-28
+# Author: Patrick Canterino <patrick@patshaping.de>
+# Last modified: 2004-11-24
#
use strict;
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);