Author: joeyh Date: 2005-01-05 11:59:07 +0100 (Wed, 05 Jan 2005) New Revision: 242 Modified: sarge-checks/checklist Log: remove comments Modified: sarge-checks/checklist ==================================================================--- sarge-checks/checklist 2005-01-05 10:55:48 UTC (rev 241) +++ sarge-checks/checklist 2005-01-05 10:59:07 UTC (rev 242) @@ -36,10 +36,10 @@ while (<IN>) { chomp; if (/^\[/) { - ($id)=m/((?:DSA|CAN|CVE)-.*?) /; + ($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /; } - elsif (/^(DSA|CAN|CVE)-/) { - $id=$_; + elsif (/^((?:DSA|CAN|CVE)-[^\s]+)/) { + $id=$1; } elsif (/^\s+[!-]\s+(.*?)\s+(.*)$/) { my $package=$1;