Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re^2: Filter::Simple bug with here documents

by Ovid (Cardinal)
on Dec 02, 2005 at 05:09 UTC ( #513515=note: print w/replies, xml ) Need Help??

in reply to Re: Filter::Simple bug with here documents
in thread Filter::Simple bug with here documents

What? You don't just randomly insert [$_] throughout your code to see what happens? :)

After much debugger work (and using the debugger with source filters is not fun), I found the error appeared to be coming from &Text::Balanced::extract_multiple. Since I couldn't get it to generate the error directly, I fell back to using an empty source filter and that kicked up the error. &Filter::Simple::gen_std_filter_for is the only place in Filter::Simple where extract multiple is called:

sub gen_std_filter_for { my ($type, $transform) = @_; return sub { my $instr; local @components; for (extract_multiple($_,$extractor_for{$type})) {

So naturally, right before that line I added this:

use Data::Dumper; warn Dumper( [ $_, $extractor_for{$type} ] );

At that point, the error went away, I sneezed and my head imploded (how Britney Spear's head fails to implode when she sneezes is another mystery I haven't solved). More playing around got that down to the "fix" which I posted.


New address of my CGI Course.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://513515]
[marto]: evening all
[Happy-the-monk]: good evening!
[marto]: what a day, running on 2 hours broken sleep. sick twins -- :P

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2017-11-18 18:29 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (277 votes). Check out past polls.