Re: [staf-devel] Tidying up lang/perl a bit

[Charles R. <ra...@us...>]

sta...@li... said:

> HOWEVER, there's a catch-- a weirdness that I don't quite get.  I was
> able to compile and install the PLSTAF binary and Perl modules (oh,
> and I recast the PLSTAF.pm module to use prototypes, which negates the
> need for a lot of the manual args-checking you were doing).  If I run
> STAF.pl, as-is, it hangs at STAF::Register.  If I just add the line
> else { print ""; }
> to the "if ($rc != 0)" statement, then everything works correctly.
> Much weirdness.

Yes.  That is *really* bizarre.  I took a quick look and nothing jumped out
at me.  I wish I could be of more help here, but Perl is not my strong
suit.  Phil, if you're reading, do you have any thoughts?

You might try putting some kind of printf/cout right before the C++ code in
STAF::Register returns.  This should tell you whether you're hanging inside
the C++ code, or somewhere inside the Perl interpreter itself.  You also
might look at the C/C++ file that is generated from the ".xs" file.  The
generated code might provide some insight.  If nothing else, you could
probably add some debugging printf/cout statements to it to, hopefully, get
a better feel for where the hang is.

--
Charles Rankin
I do not speak for IBM