Parent Directory
|
Revision Log
|
Patch
| revision 241 by joeyh, Wed Jan 5 10:55:48 2005 UTC | revision 242 by joeyh, Wed Jan 5 10:59:07 2005 UTC | |
|---|---|---|
| # | Line 36 foreach my $list (@ARGV) { | Line 36 foreach my $list (@ARGV) { |
| 36 | while (<IN>) { | while (<IN>) { |
| 37 | chomp; | chomp; |
| 38 | if (/^\[/) { | if (/^\[/) { |
| 39 | ($id)=m/((?:DSA|CAN|CVE)-.*?) /; | ($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /; |
| 40 | } | } |
| 41 | elsif (/^(DSA|CAN|CVE)-/) { | elsif (/^((?:DSA|CAN|CVE)-[^\s]+)/) { |
| 42 | $id=$_; | $id=$1; |
| 43 | } | } |
| 44 | elsif (/^\s+[!-]\s+(.*?)\s+(.*)$/) { | elsif (/^\s+[!-]\s+(.*?)\s+(.*)$/) { |
| 45 | my $package=$1; | my $package=$1; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |