Front page | perl.perl5.porters |
Postings from May 2009
[perl #66098] perl-5.10.x + bignum assertion
From:
Nicholas Clark
Date:
May 28, 2009 09:42
Subject:
[perl #66098] perl-5.10.x + bignum assertion
Message ID:
rt-3.6.HEAD-13988-1243522071-1717.66098-75-0@perl.org
# New Ticket Created by Nicholas Clark
# Please include the string: [perl #66098]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=66098 >
Merijn mailed p5p in 20081112130021.70f86340@pc09.procura.nl
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2008-11/msg00393.html
--8<--- test.pl
use strict;
use warnings;
use bignum;
while (<DATA>) {
print STDERR;
my @x;
@x = split m/,/, $_, -1;
@x[0..6] = split m/,/, $_, -1;
my ($dev, $mnt, $size, $used, $free, $fstype, $fill)
= split m/,/, $_, -1;
}
__END__
/dev/mapper/isw_daagcejgfe_sva1_part3 ,/ ,461307.1 , 12860.4 ,448446.7 ,ext3
-->8---
$ perl test.pl
Assertion ((svtype)((_svi)->sv_flags & 0xff)) == SVt_IV || ((svtype)((_svi)->sv_flags & 0xff)) >= SVt_PVIV failed: file "op.c", line 4203 at test.pl line 16.
Dave notes that it appears to be a regression from 588, and doesn't fail in
bleed due to the different way Sv_RVs are done now.
-
[perl #66098] perl-5.10.x + bignum assertion
by Nicholas Clark