Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.15, 2000/10/22 06:03:35 | version 1.16, 2000/10/22 23:47:06 |
---|---|
Line 78 sub getField { | Line 78 sub getField { |
} | } |
next if (/^\s*$/); | next if (/^\s*$/); |
if (/^(.*)[:\.]\s*/ && !$key) { | if (!$key && /^(.*?)[:\.]\s*(.*)$/s) { |
$key = $1; | $key = $1; |
$value=$2; | |
next; | next; |
} | } |
if ($key) { | if ($key) { |