# HG changeset patch # User anatofuz # Date 1573698704 -32400 # Node ID d0aea70fe1b0ca1ddc6bb8712f39f95ce59039d4 # Parent 70eae4b230f2461910b58b7e0412151cd3cda741 tweak update_context.pl diff -r 70eae4b230f2 -r d0aea70fe1b0 src/gearsTools/update_context.pl --- 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); }