On Wed, Sep 20, 2000 at 04:12:17AM -0000, Perl6 RFC Librarian wrote:
> Given this level of complexity, it's perhaps not surprising that source
> code filtering is not commonly used.
The both times I've attempted to use Filter::Util::Call, I've wound up
reverting to Filter::Util::Exec and doing something like this:
use Filter::Util::Exec;
sub import {
my($self, $term) = @_;
$term = 'Peterbilt' unless defined $term;
Filter::Util::Exec::filter_add($self, $^X, '-pe', <<"");
warn "Use of '\$1' detected at line \$.\n".
"Perhaps you meant '$term'?\n" if /(peterbuilt|$term)/i &&
$term ne \$1;
s/$term/;/g;
}
Filter::Util::Call's way of doing things is just too twisted and
strange.
Anyhow, I guess this is an elaborate "me too".
--
Michael G Schwern http://www.pobox.com/~schwern/ [EMAIL PROTECTED]
Just Another Stupid Consultant Perl6 Kwalitee Ashuranse
shitting is a chore
wet glue enters my sphincter
I shall poop no more
-- Schwern