> [EMAIL PROTECTED]
<[EMAIL PROTECTED]> wrote:
> sub has_time { $_[0]->has{'hour', 'minute'} }
Maybe should be:
sub has_time {
return 1 if ($_[0]->has('hour', 'minute') and not
$_[0]->has('nanosecond'));
return 1 if ($_[0]->has('hour', 'minute', 'second'))
return 0
}
Which only returns true if we have HH:MM or
HH:MM:SS or HH:MM:SS.N+. The older version
allowed us to get true for HH:MM:xx.N+ which is not
really a time.
Same caveat:
Above code passes all tests on the perl installed in
my head. Havn't tried any of it with the much fussier
software version.
perl -v
This is perl, v5.8.0 built for ricks-brain-1.0
