So, what value should $dim have? --Chris
On 6/22/2010 6:49 PM, P Kishor wrote: > On Tue, Jun 22, 2010 at 5:32 PM, Chris Marshall<[email protected]> wrote: >> I don't think these errors have anything to do with >> FlexRaw or FastRaw. Take a look at the file and line >> of the error to see what routine has the problem. >> > > I am so sorry for misleading... yes, the errors are not with > (Flex|Fast)Raw but with Core.pm. I posted the lines (line 936 onward) > in an earlier thread. It is the PDL::dummy sub > > sub PDL::dummy($$;$) { > my ($pdl,$dim,$size) = @_; > $dim = $pdl->getndims+1+$dim if $dim< 0; > $size = 1 unless defined($size); > > barf("For safety,<pos> < -(dims+1) forbidden in dummy. min=" > . -($pdl->getndims+1).", pos=". ($dim-1-$pdl->getndims) ) if($dim<0); > > my($s) = ',' x ( ($dim> $pdl->getndims) ? ($pdl->getndims) : ($dim) ); > $s .= '*,' x ( $dim-$pdl->getndims-1 ); > $s .= "*$size"; > > $pdl->slice($s); > } > >> Cheers, >> Chris >> >> >> >> Punkish writes: >>> >>> But, I also continue to get the following errors from my short little >>> program (Perl 5.12.1, PDL 2.4.6) -- >>> >>> my @dat = (1234, 123, 1, 0, 245, 5, 546, 10); >>> my $row = ones(short, $x)->dummy * pdl(short, @dat); >>> my $img = ones(short, $y)->dummy->dummy * $row; >>> my $hdr = writefraw($img, 'pdl.dat'); >>> >>> Use of uninitialized value $dim in numeric lt (<) at >>> /usr/local/lib/perl5/site_perl/5.12.1/darwin-2level/PDL/Core.pm line >>> 936. >>> ... >> > > > > > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 9.0.829 / Virus Database: 271.1.1/2955 - Release Date: 06/22/10 > 02:36:00 > _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
