--- FITS.pm.orig 2004-01-15 11:11:45.000000000 +0900 +++ FITS.pm 2004-01-15 16:06:32.000000000 +0900 @@ -721,7 +721,7 @@ PDL->new_from_specification( $foo , $tmpcol->{rpt}, - , $hdr->{NAXIS2} + , $hdr->{NAXIS2}||1 ); $rowlen += PDL::Core::howbig($foo) * $tmpcol->{rpt}; } @@ -833,12 +833,16 @@ } } # end of scaling section. + if ($hdr->{NAXIS2} > 0) { + $tbl->{$tmpcol->{name}} = + ( $tmpcol->{data}->dim(0) == 1 ) + ? $tmpcol->{data}->slice("(0)") + : $tmpcol->{data}->xchg(0,1); + } + else { + $tbl->{$tmpcol->{name}} = undef; + } - $tbl->{$tmpcol->{name}} = - ( $tmpcol->{data}->dim(0) == 1 ) - ? $tmpcol->{data}->slice("(0)") - : $tmpcol->{data}->xchg(0,1); - } elsif(defined $post) { print STDERR "Postfrobnication bug detected in column $i (" . $tmpcol->{name}. "). Winging it.\n";