Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the PDL CPAN distribution.

Report information
The Basics
Id: 31817
Status: resolved
Priority: 0/
Queue: PDL

People
Owner: Nobody in particular
Requestors: rossiya [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 2.4.3
Fixed in: 2.4.4



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>
Download (untitled) / with headers
text/plain 3.1k
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.
Download (untitled) / with headers
text/plain 116b
See http://sourceforge.net/tracker/?func=browse&group_id=612&atid=100612 bug # 1994617 for follow up and resolution.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.