$vacation->subtract_quality( $_->has_obvious_fix() ? $_->get_severity(
+) * 100 : $_->get_severity() ) foreach grep{ !$_->is_existing_problem
+() and $_->get_contact() eq $me and $_->get_description() =~ /a docum
+ented feature/i } @{$work->get_bug_list()}
[download]

Will perl for money
JJ Knitis
(901) 756-7693
gt8073a@industrialmusic.com