changeset 302:06665ec9e2a0

remove debug code
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Wed, 05 Feb 2020 13:01:09 +0900
parents 1ed4d93e5cec
children 17ccc6e21e35
files src/gearsTools/update_implheader.pl
diffstat 1 files changed, 0 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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);