note
Juerd
<p><blockquote><em>
Can you do source filters in 5.6.x?
</em></blockquote></p>
<p>
[http://search.cpan.org/src/PMQS/Filter-1.29/README] says:
<blockquote>
<pre>
Before you can build the Source Filters you need to have the following
installed on your system:
* Perl 5.004 or better. 5.6.0 or better is recommended for Win32.
</pre>
</blockquote>
</p>
<p>
The source filter can be as simple as (untested)
<code>
package Filter::share;
use Filter::Simple;
FILTER_ONLY code => sub { s/( \b share \b \s* \(? )(?= \s* [\@\$%] )/$1\\/gxe };
</code>
but IIRC, source filters don't work on eval()ed code. OTOH, why would anyone eval a share call... :)
</p>
<p><font color="#800000">
Juerd
# { site => '<a href="http://juerd.nl/" target="_blank"><font color="#800000">juerd.nl</font></a>', plp_site => '<a href="http://plp.juerd.nl/" target="_blank"><font color="#800000">plp.juerd.nl</font></a>', do_not_use => '<a href="mailto:spamcollector_perlmonks@juerd.nl" target="_blank"><font color="#800000">spamtrap</font></a>' }
</font></p>
281932
281984