changeset 98:d0aea70fe1b0

tweak update_context.pl
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 14 Nov 2019 11:31:44 +0900
parents 70eae4b230f2
children e960539c003d
files src/gearsTools/update_context.pl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/update_context.pl	Thu Nov 14 10:14:15 2019 +0900
+++ b/src/gearsTools/update_context.pl	Thu Nov 14 11:31:44 2019 +0900
@@ -27,7 +27,7 @@
   my @last_context_headers = ();
   
   while (my $line = <$fh>) {
-    if ( $line =~ /this is necessary for context generator/) {
+    if ( $line =~ /this is necessary for cbc_context generator/) {
       push(@last_context_headers, $line);
       push(@last_context_headers, <$fh>);
       last;
@@ -41,8 +41,8 @@
   
   close $fh;
   
-  print "@first_context_headers\n";
-  print "@last_context_headers\n";
+  #print "@first_context_headers\n";
+  #print "@last_context_headers\n";
   return (\@first_context_headers,\@last_context_headers);
 }