diff --git a/contrib/betateilchen/debug/configDB.pm b/contrib/betateilchen/debug/configDB.pm
index 37ec80c9f..a49c55a7d 100644
--- a/contrib/betateilchen/debug/configDB.pm
+++ b/contrib/betateilchen/debug/configDB.pm
@@ -218,18 +218,13 @@ foreach my $line (@c) {
 }
 
 
-use Data::Dumper;
-print Dumper @config;
-
-return 0;
-
-while (<CONFIG>){
-   my $line = $_;
-   $line =~ s/^\s+|\s+$//g; # remove whitespaces etc.
-   $line =~ s/;$/;;/;       # duplicate ; at end-of-line
-   push (@config,$line) if($line !~ m/^#/ && length($line) > 0);
-}
-close CONFIG;
+#while (<CONFIG>){
+#   my $line = $_;
+#   $line =~ s/^\s+|\s+$//g; # remove whitespaces etc.
+#   $line =~ s/;$/;;/;       # duplicate ; at end-of-line
+#   push (@config,$line) if($line !~ m/^#/ && length($line) > 0);
+#}
+#close CONFIG;
 
 use vars qw(%configDB);