Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
There's more than one way to do things
 
PerlMonks  

Re^3: Bug in Math::Pari ?

by hv (Parson)
on Nov 27, 2009 at 12:58 UTC ( #809735=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Bug in Math::Pari ?
in thread Bug in Math::Pari ?

I wonder if $SIG{__DIE__} is exactly the problem here: the line in Math::BigInt::objectify() is:

$k->can('as_number') ? $k = $k->as_number : $k = $a[0]->new($k);

Now, there is a precedence error here (I've reported that), but if can() returns false it shouldn't affect us, it should simply call $a[0]->new($k).

The code from Math::Pari::can() is:

$f = eval { loadPari($meth) }; return $f if defined $f; return;

.. which should correctly return undef if the loadPari() fails. However if some $SIG{__DIE__} is catching the loadPari() failure, maybe we're never getting to return from the eval. Or maybe the die handler is (inappropriately) reporting the error and the code is then successfully continuing.

I'd be tempted for starters to put a diagnostic in objectify() just after that line, to see if a) it reaches there, and b) $k has the correct value. I'd also hunt for a $SIG{__DIE__} handler, to check what exactly it is doing - generally, such handlers should almost always act only after checking they are not inside an eval. There may be a better way, but when I needed this some time ago for a logging module the code looked like this:

$SIG{__DIE__} = sub { # propagate the die if we're under an eval (defined($^S) && !$^S) or die(@_); # now do the real stuff ... };

.. but there may be a better way.

Hugo


Comment on Re^3: Bug in Math::Pari ?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://809735]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2014-04-21 05:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (490 votes), past polls