# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1391092308 -3600
# Node ID 992581cd9e897bd8595d496e357432fc9f1a628f
# Parent  6e5a0f90db08601c0bd235221349066a3bd04810
[perltidy] und @ARGV

diff -r 6e5a0f90db08 -r 992581cd9e89 read-httpd-conf
--- a/read-httpd-conf	Fri Dec 06 10:10:09 2013 +0100
+++ b/read-httpd-conf	Thu Jan 30 15:31:48 2014 +0100
@@ -5,21 +5,22 @@
 use Carp;
 
 sub read_file {
-	my $file = shift;
-	open(my $fh, '<', $file)
-		or croak "Can't open $file: $!\n";
-	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;
-	}
+    my $file = shift;
+    open(my $fh, '<', $file)
+      or croak "Can't open $file: $!\n";
+    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;
+    }
 }
 
-die "$0: Need file name (httpd.conf)\n" 
-    unless $@;
+die "$0: Need file name (httpd.conf)\n"
+  unless @ARGV;
 read_file(shift);