[Bio] / FigKernelPackages / SeedUtils.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/SeedUtils.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27, Sat Dec 19 00:03:24 2009 UTC revision 1.28, Wed Jan 20 19:48:55 2010 UTC
# Line 1346  Line 1346 
1346      }      }
1347  }  }
1348    
1349    sub strip_func {
1350            my($func) = @_;
1351    
1352            $func =~ s/^FIG\d{6}[^:]*:\s*//;
1353            $func =~ s/\s*\#.*$//;
1354            return($func);
1355    }
1356    
1357    
1358    
1359    
1360    
1361    
1362    
1363    }
1364  1;  1;

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3