Index: /tools/wleiden.pl
===================================================================
--- /tools/wleiden.pl	(revision 4078)
+++ /tools/wleiden.pl	(revision 4079)
@@ -324,14 +324,11 @@
 };
 
-if( exists $ARGV[1] ) {
-  parse_config($ARGV[0]);
-  print do_it($ARGV[1]);
-}
-else {
-  print "Usage `perl wleiden.pl 'inputfile' 'outputfile'`\n";
-  print "While calling from perl script use:\n";
-  print "parse_config('inputfile')\n";
-  print "do_it('outputfile')\n";
-};
-
-exit 0;
+if( $debug ) {
+  if( exists $ARGV[1] ) {
+    parse_config($ARGV[0]);
+    print do_it($ARGV[1]);
+  }
+  else {
+    print "Usage `perl wleiden.pl 'inputfile' 'outputfile'`\n";
+  };
+};