Testing...

svn path=/; revision=144

diff --git a/preecej/perl_singletons/pathway_gene_swapper.pl b/preecej/perl_singletons/pathway_gene_swapper.pl
index 6a9e03c4c442c0d0829ae734e29937967cba22c8..5066f39cc1469035708586a0a72b02c79a07fac8 100644 (file)
--- a/preecej/perl_singletons/pathway_gene_swapper.pl
+++ b/preecej/perl_singletons/pathway_gene_swapper.pl
@@ -368,8 +368,8 @@ sub swap_genes
         }
     }
 
-    # if ($debug) { print "...<DEBUG: \%existing_hex_ids>\n"
-    #     . Dumper(\%existing_hex_ids) . "\n\n"; }
+    if ($debug) { print "...<DEBUG: \%existing_hex_ids>\n"
+        . Dumper(\%existing_hex_ids) . "\n\n"; }
     
     # iterate through gene mappings from csv file
     foreach my $old_gene (keys %swap_genes)