[Bioperl-guts-l] [14649] bioperl-live/trunk/Bio/Graphics/FeatureFile.pm: restored the ability to have a "tag=value #comment" style comment

[Lincoln Stein]

Revision: 14649
Author:   lstein
Date:     2008-04-03 09:24:40 -0400 (Thu, 03 Apr 2008)

Log Message:
-----------
restored the ability to have a "tag=value #comment" style comment

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Graphics/FeatureFile.pm

Modified: bioperl-live/trunk/Bio/Graphics/FeatureFile.pm
===================================================================
--- bioperl-live/trunk/Bio/Graphics/FeatureFile.pm	2008-04-02 21:36:46 UTC (rev 14648)
+++ bioperl-live/trunk/Bio/Graphics/FeatureFile.pm	2008-04-03 13:24:40 UTC (rev 14649)
@@ -514,6 +514,8 @@
     my $self = shift;
     local $_ = shift;
 
+    s/\s+\#.*$//;   # strip right-column comments
+
     if (/^\s+(.+)/ && $self->{current_tag}) { # configuration continuation line
 	my $value = $1;
 	my $cc = $self->{current_config} ||= 'general';       # in case no configuration named