# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1393847178 -3600
# Node ID 68f19d9cfd9ae6686b4269b4434ae17c9c0b4be0
# Parent  992581cd9e897bd8595d496e357432fc9f1a628f
[critic] some critics fixed

diff -r 992581cd9e89 -r 68f19d9cfd9a read-httpd-conf
--- a/read-httpd-conf	Thu Jan 30 15:31:48 2014 +0100
+++ b/read-httpd-conf	Mon Mar 03 12:46:18 2014 +0100
@@ -4,6 +4,8 @@
 use warnings;
 use Carp;
 
+our $VERSION = 0.01;
+
 sub read_file {
     my $file = shift;
     open(my $fh, '<', $file)
@@ -11,14 +13,13 @@
     say "# 1 $file";
     while (<$fh>) {
         if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
-
-            #print "#$file:$.:$_";
             say "# $. $file INCLUDE $+{file}";
             read_file($_) foreach (glob $+{file});
             next;
         }
         print;
     }
+    return;
 }
 
 die "$0: Need file name (httpd.conf)\n"