Changeset 4079 in genesis for tools

Timestamp:

Mar 16, 2005, 4:17:04 PM (20 years ago)

Author:

rick

Message:

Debug fix

File:

• tools/wleiden.pl (modified) (1 diff)

tools/wleiden.pl

@@ -324 +324 @@
 };
 
-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";
+  };
+};