>>>>> "Maurice" == Maurice Aubrey <[EMAIL PROTECTED]> writes:
>> Maybe Gisle could add $self->status_line that factors this out.
Maurice> There is a $self->status_line:
Maurice> sub status_line
Maurice> {
Maurice> my $self = shift;
Maurice> my $code = $self->{'_rc'} || "000";
Maurice> my $mess = $self->{'_msg'} || HTTP::Status::status_message($code) || "?";
Maurice> return "$code $mess";
Maurice> }
Doh! When did *that* sneak in there! And why isn't the rest of the
code using that? :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
