changeset 6:065d32ea977f

fix
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 05 Oct 2018 20:48:17 +0900
parents 6f5c1e8db40e
children b545249e9b62
files cbctools/change_OP_to_cbc.pl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/cbctools/change_OP_to_cbc.pl	Fri Oct 05 20:34:17 2018 +0900
+++ b/cbctools/change_OP_to_cbc.pl	Fri Oct 05 20:48:17 2018 +0900
@@ -47,14 +47,14 @@
 
     push @rewritec,change_i($cbc_lines[$i]);
 
-    if ($cbc_lines[$i+1] =~ /OP/ && $none_left_blanket){
+   if ($i != scalar(@cbc_lines)-1 && $cbc_lines[$i+1] =~ /OP/ && $none_left_blanket){
         insert_right_blanket();
         $none_left_blanket = 0;
     }
 }
 
 for (@rewritec){
-    print "$_";
+    #print "$_";
 }
 
 sub change_i {