Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^3: Bug in Math::Pari ?

by hv (Prior)
on Nov 27, 2009 at 12:58 UTC ( [id://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

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2024-03-28 20:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found