Re: Using Inline Python to import Python vars

-----Original Message----- 
From: [email protected]
Sent: Tuesday, April 09, 2013 12:44 PM
To: Chris Nighswonger ; [email protected]
Subject: Re: Using Inline Python to import Python vars



-----Original Message----- 
From: Chris Nighswonger

>     @{$DATA{$pkg}} = split /(?m)(__\S+?__\n)/, $data;

Try replacing that line (in Inline.pm) with:

     #warn "\n########\n\$data:\n$data\n########\n";
    @{$DATA{$pkg}} = split /(?m)(\n[ \t]{0,}__\S+?__\n)/, $data;
     for(@{$DATA{$pkg}}) {$_ = (split /\s/, $_)[-1] . "\n" if $_ =~ 
/^\s{0,}__\S+?__\n$/} # remove any whitespace that precedes marker
     #warn "\n########\n", scalar(@{$DATA{$pkg}}), "\n";l
     #for(@{$DATA{$pkg}}) {warn ">>$_<<\n"}

It's only 2 lines of code - the (commented out) warnings might be useful if 
things go awry. They won't appear in the final version of Inline.pm.

That works ok for my failing Inline::C script, and without causing any of 
the Inline tests in the Inline-0.52 test suite to fail.
I'm hopeful it will do the trick for your Inline::Python script, too.

It's possibly a little convoluted at the moment ... maybe someone can 
improve on that.

Cheers,
Rob