From bc50e2900770ca4a6085d047ad8646d18e7c63d3 Mon Sep 17 00:00:00 2001
From: preecej <preecej@localhost>
Date: Tue, 9 Aug 2011 19:59:58 +0000
Subject: [PATCH] Testing...

svn path=/; revision=144
---
 preecej/perl_singletons/pathway_gene_swapper.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/preecej/perl_singletons/pathway_gene_swapper.pl b/preecej/perl_singletons/pathway_gene_swapper.pl
index 6a9e03c..5066f39 100644
--- 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)
-- 
2.34.1