# HG changeset patch # User Heiko Schlittermann (JUMPER) # Date 1397051235 -7200 # Node ID bd0f8dc30ae07285c6997d01a1e95721af6887c5 # Parent 8e064c262aa5f14464e003235a36f1322318832f# Parent 68f19d9cfd9ae6686b4269b4434ae17c9c0b4be0 [merged] the fixes diff -r 8e064c262aa5 -r bd0f8dc30ae0 read-httpd-conf --- a/read-httpd-conf Sat Mar 08 12:24:44 2014 +0100 +++ b/read-httpd-conf Wed Apr 09 15:47:15 2014 +0200 @@ -5,6 +5,8 @@ use Carp; use File::Basename; +our $VERSION = 0.01; + sub read_file { my ($file, $basedir) = @_; open(my $fh, '<', $file) @@ -19,6 +21,7 @@ } print; } + return; } die "$0: Need file name (httpd.conf)\n"