From cbf07fba9072212d0535a89651fb686650e727f0 Mon Sep 17 00:00:00 2001
From: christian mueller <christian.ei.mueller@bmw.de>
Date: Wed, 7 Mar 2012 18:29:03 +0100
Subject: * [GAM-29] fixes

---
 include/control/uncomment.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 include/control/uncomment.pl

(limited to 'include/control/uncomment.pl')

diff --git a/include/control/uncomment.pl b/include/control/uncomment.pl
new file mode 100755
index 0000000..f06f52c
--- /dev/null
+++ b/include/control/uncomment.pl
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+foreach (@ARGV)
+{
+
+	open FILE, $_ or die "Couldn't open file: $!"; 
+	my $string = join("", <FILE>); 
+	close FILE;
+
+	$string=~ s|/[*].*?[*]/||sg;
+	$string=~ s/virtual//sg; 
+	$string=~ s/=0;/;/sg;
+	$string=~ s/(^|\n)[\n\s]*/$1/g;
+
+	open F, ">$_" or die "Couldn't open file: $!"; 
+	print F $string;
+	close F;
+}
+
+
+
+
+
-- 
cgit v1.2.1