} else {
($fieldname) = split(/:/);
$current = lc($fieldname);
-
- # XXX: Is it correct simply to eat all whitespace between
- # the colon and the first text for the header?
- # Furthermore, is any space at all required? Or is
- # '^Subject:hey$' a perfectly valid header?
(undef, $headers{$current}) = split(/^$fieldname:\s*/);
}
}