Re: perl pad.c Assertion !((sv)->sv_flags & 0x00010000) failed

Tels wrote:
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Moin,

On Thursday 21 June 2007 18:44:22 Steve Hay wrote:
Tim Bunce wrote:
On Wed, Jun 20, 2007 at 08:47:53AM +0100, Steve Hay wrote:
Tim Bunce wrote:
file: $CPAN/authors/id/T/TI/TIMB/DBI-1.57.tar.gz
size: 490304 bytes
md5: fca667f59dff24058a8e0e8f09e2aad9

=head2 Changes in DBI 1.57 (svn rev 9639), 13th June 2007

Fixed t/86gofer_fail tests to be less likely to fail falsely.
t/86gofer_fail.t now fails with my build of bleadperl (patchlevel
31376) with VC++ 6.0 on Win32 (perl -V below). This script was passing
OK in DBI-1.56 with the same perl.

C:\Temp\DBI-1.57>perl -Mblib t\86gofer_fail.t
ok 21 - negative percentage should fail non-randomly
Testing random delay
ok 22
Unexpected failure: DBD::Gofer::db do failed: Assertion
!((sv)->sv_flags & 0x00010000) failed: file "..\pad.c", line 1505 at
C:\Temp\DBI-1.57\blib\lib/DBI/Gofer/Execute.pm line 624. at
t\86gofer_fail.t line 129.
Execute.pm line 624 is returning a closure, but it doesn't seem
particularly magical.

Not sure when I'll be able to dig deeper. CC'd to perl5-porters in the
hope they can help narrow it down.
With the attached patch I now have all tests successful.

I remember lots of discussion a while ago about constructions like "my
$x = 1 if $y;". I don't remember what the conclusion of it all was,
except that it's probably best avoided. Is that right?

Yes. But you patch just removes the "my"

No it doesn't. Look again.


which would cause problems under strict. It should be:

my $foo; $foo = ... if ....;

instead.

All the best,

Tels


- -- Signed on Thu Jun 21 18:49:21 2007 with key 0x93B84C15.
View my photo gallery: http://bloodgate.com/photos
PGP key on http://bloodgate.com/tels.asc or per email.

"... [Apocalypse 12] ... With that, the design of Perl 6 can be said to
be largely complete. We are now in the endgame, which is the name of
this screensaver. Now that the Parrot engine is in such fine shape, it's
time to concentrate on writing a fine Perl 6 compiler to target it."

-- Larry Wall in 'The State of the Onion', August 19th, 2004
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2 (GNU/Linux)

iQEVAwUBRnqsSXcLPEOTuEwVAQIXQgf9EM6mqUqY1Bbab+OSwrte5f/GNH8mmAq5
+zlzE35ueQRXgL5gQI07AehPS8HMBRQmkCe6NcgViygl37+nsm2Igu24k2cbXxqm
iVt4iEITNLxig/naFAnm3HyxLqdonE3UNQ4F8FsSYvwHskN8JMRZDOO7hKu2o7oE
yt3ORevWhtiZ5m6O6yY/tA6w2NccaGP4KtjaqjXlRa1RQNxBNo0GuMJRE/GMQaPU
qSj/uEtMLJqTYU+TgGXXV3Uj7jKCru3GtlxqocoMDOpHutFEI/whtVs2dJIL7NKa
/WrV2I1EwCGMHQThz2Rxeff8ZCghlw3gNvo/I2Lw5utwPGOzQ+IbAA==
=Fxrs
-----END PGP SIGNATURE-----





--
.

Relevant Pages

  • Re: how to cut a text file in perl
    ... Hash: SHA1 ... > hi i have a log file that it is increasing to big, ... This isn't a Perl answer, ...
    (comp.lang.perl.misc)
  • Re: sorting filenames
    ... > Hash: SHA1 ... >> Does anyone have a readymade solution to this problem, ... presumably because perl was not already in memory. ...
    (comp.os.linux.misc)
  • Re: reg exp help
    ... Hash: SHA1 ... [snip OP and perl] ...
    (comp.lang.python)
  • Re: Recursively copying a directory
    ... > Hash: SHA1 ... > I'm looking for a way to copy a directory and all its content with perl; ... Why reinvent the wheel? ...
    (comp.lang.perl.misc)
  • Re: Noob! Help required and would be really appreciated!
    ... You've read 60% of "Learning Perl"? ... On finding the keyword "New Order", it has to start building a hash. ... want to build a loop around this hash creation. ... transferred to %allOrders. ...
    (comp.lang.perl.misc)