| Subject: | PDL-2.4.3: Not a HASH reference at /usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Graphics/TriD/Objects.pm line 53, <> line 29. |
| Date: | Fri, 21 Dec 2007 11:57:31 -0800 |
| To: | bug-PDL [...] rt.cpan.org |
| From: | MC <rossiya [...] gmail.com> |
Hello
On Friday, 21Dec2007 I found this but in the PDL demo after upgrading
from perl 5.8.8 to perl 5.10.0:
pocket:/trash/perl/usr/local/bin $ perldl
Show quoted text
perldl> demo 3d
---- Code:
# Number of subdivisions for lines / surfaces.
$size = 25;
$cz = (xvals zeroes $size+1) / $size; # interval 0..1
$cx = sin($cz*12.6); # Corkscrew
$cy = cos($cz*12.6);
line3d [$cx,$cy,$cz]; # Draw a line
# [press 'q' in the graphics window when done]
---- Output:
----
----
OOPS!!! Something went wrong, please make a bug report!: Not a HASH
reference at /usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Graphics/TriD/Objects.pm
line 53, <> line 29.
at /usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Graphics/TriD/Objects.pm
line 53
PDL::Graphics::TriD::GObject::new('PDL::Graphics::TriD::LineStrip',
'ARRAY(0x8c6f654)') called at
/usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Graphics/TriD.pm line
685
PDL::line3d('ARRAY(0x8c6f654)') called at (eval 568) line 8
eval 'package PDL::Demos::TriD1; use PDL;
# Number of subdivisions for lines / surfaces.
$size = 25;
$cz = (xvals zeroes $size+1) / $size; # interval 0..1
$cx = sin($cz*12.6); # Corkscrew
$cy = cos($cz*12.6);
line3d [$cx,$cy,$cz]; # Draw a line
# [press \'q\' in the graphics window when done]
;' called at /usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Demos/Screen.pm
line 55
PDL::Demos::Routines::actnw('\x{a}\x{9}# Number of
subdivisions for lines / surfaces.\x{a}\x{9}$size = 25;...') called at
/usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Demos/TriD1.pm line 37
PDL::Demos::TriD1::run() called at /usr/local/bin/perldl line 388
main::demo('3d') called at (eval 566) line 4
main::__ANON__() called at /usr/local/bin/perldl line 644
eval {...} called at /usr/local/bin/perldl line 644
main::eval_and_report('demo \'3d\'') called at
/usr/local/bin/perldl line 583
main::process_input() called at /usr/local/bin/perldl line 603
eval {...} called at /usr/local/bin/perldl line 603
------------------------------------------------------------------------------------------------------------
In perl debugger I got:
PDL::Graphics::TriD::GObject::new(/usr/local/lib/perl5/site_perl/5.10.0/mach/PDL/Graphics/TriD/Objects.pm:53):
53: $this->{Options} = $options;
DB<<18>> x $this->{Options}
Not a HASH reference at (eval
342)[/usr/local/lib/perl5/5.10.0/perl5db.pl:638] line 2, <DATA> line
387.
DB<<19>> x $this
0 PDL::Graphics::TriD::LineStrip=ARRAY(0x910fb90)
0 HASH(0x8f8af14)
'ChangedSub' => 3
'Colors' => 7
'List' => 4
'Objects' => 1
'Options' => 8
'Points' => 6
'VRML' => 5
'ValidList' => 2
DB<<20>> x $this->[0]->{Options}
0 8
DB<<21>>
It would seem that perl 5.10 insists that $this points to an ARRAY,
whilst in perl5.8.8 $this is a HASH REF
$ uname -a
FreeBSD pocket 6.2-RELEASE-p6 FreeBSD 6.2-RELEASE-p6 #1: Tue Jul 17
00:15:41 PDT 2007 root@pocket:/usr/obj/usr/src/sys/MC2 i386
I check the CPAN bug report system and seldom read this email address,
as I get thousands of emails here weekly.