# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1580875269 -32400
# Node ID 06665ec9e2a0f7f8fa14d02529bbe1ecbb6436c0
# Parent  1ed4d93e5cec6906ee88b088d062de08ba69e4ed
remove debug code

diff -r 1ed4d93e5cec -r 06665ec9e2a0 src/gearsTools/update_implheader.pl
--- a/src/gearsTools/update_implheader.pl	Wed Feb 05 12:57:07 2020 +0900
+++ b/src/gearsTools/update_implheader.pl	Wed Feb 05 13:01:09 2020 +0900
@@ -3,7 +3,6 @@
 use warnings;
 
 use Carp qw/croak/;
-use DDP {deparse => 1};
 
 my $header_file = shift // croak 'require header file!';
 my ($header_con,$interface_name) = search_slurp_header_file($header_file);
@@ -17,9 +16,6 @@
 map  { push(@{$cbc_code_names{order_list}}, $_)}
         sort { $cbc_code_names{codes}->{$a}->{order} <=> $cbc_code_names{codes}->{$b}->{order} } keys %{$cbc_code_names{codes}};
 
-        #p $header_con;
-        #p %cbc_code_names;
-
 my $write_codes = create_new_header_codes($header_con,\%cbc_code_names);
 exit unless $write_codes;
 update_header($header_file,$write_codes);