--- PDL-2.4.3/t/gis_proj.t.test 2006-07-26 21:34:29.000000000 -0600 +++ PDL-2.4.3/t/gis_proj.t 2007-07-31 12:15:15.000000000 -0600 @@ -68,7 +68,7 @@ # Do the corners of a cyl eq map, and see what we get... print "\nCorners of a cylindrical equidistant projection:\n"; -my $cyl_eq = "+proj=eqc +lon_0=0"; +my $cyl_eq = "+proj=eqc +lon_0=0 +a=5.3049894774131808e-315"; print "Perl level params: \'$cyl_eq\'\n"; my $lon3 = double [-180.0, -180.0, 180.0, 180.0]; my $lat3 = double [ 90.0, -90.0, 90.0, -90.0]; --- PDL-2.4.3/t/xvals.t.test 1999-12-09 04:15:22.000000000 -0700 +++ PDL-2.4.3/t/xvals.t 2007-08-14 14:35:57.000000000 -0600 @@ -13,11 +13,11 @@ $a0 = zeroes(3,2); # $a0->doflow(); - print $a0; +# print $a0; $a1 = $a0->slice('(1)'); - print $a1; +# print $a1; # $a0->dump(); $a1->dump(); @@ -27,19 +27,19 @@ # $a1->dump(); - print $a1; +# print $a1; $dummy = PDL::Core::new_or_inplace($a0); -print $dummy; +#print $dummy; $dummy2 = $dummy->xchg(0,0); -print $dummy2; -$dummy2->dump(); -$dummy->dump(); +#print $dummy2; +#$dummy2->dump(); +#$dummy->dump(); PDL::Primitive::axisvalues($dummy2); -$dummy2->dump(); -$dummy->dump(); -print $dummy2; -print $dummy; +#$dummy2->dump(); +#$dummy->dump(); +#print $dummy2; +#print $dummy; @@ -55,24 +55,24 @@ $a = xvals $a0; -print $a; +#print $a; ok(1,$a->at(0,0) == 0); ok(2,$a->at(1,0) == 1); ok(3,$a->at(2,0) == 2); ok(4,$a->at(1,1) == 1); -$a = zeroes 5,10; +#$a = zeroes 5,10; -$b = yvals $a; +#$b = yvals $a; -$c = $b->copy(); +#$c = $b->copy(); -$d = $b-$c; +#$d = $b-$c; -print "$d,$b,$c"; +#print "$d,$b,$c"; # print $a; -print "OUTOUT\n"; +#print "OUTOUT\n";