Ticket #172: gb_multi_perl

File gb_multi_perl, 693 bytes (added by epruesse, 15 years ago)
Line 
1Index: arb/PERL_SCRIPTS/ARBTOOLS/IFTHELP/genbank_gen_long_features.pl
2===================================================================
3--- arb.orig/PERL_SCRIPTS/ARBTOOLS/IFTHELP/genbank_gen_long_features.pl
4+++ arb/PERL_SCRIPTS/ARBTOOLS/IFTHELP/genbank_gen_long_features.pl
5@@ -51,7 +51,7 @@ eval {
6       }
7       else { # new feature
8         if (defined $line_to_print) { print $line_to_print."\n"; $line_to_print=undef; }
9-        if (/^(     )([a-z]+)( .*)$/io) { # checked - really new feature
10+        if (/^(     )([a-z_]+)( .*)$/io) { # checked - really new feature
11           my ($white1,$feature,$rest) = ($1,$2,$3);
12           $last_feature = $feature;
13           chomp($rest);