diff --git a/Makefile.PL b/Makefile.PL index c05d838..cf08203 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -25,4 +25,21 @@ $hash{VERSION_FROM} = 'HMM.pd'; ## $hash{realclean}{FILES} .= ' *~ *.tmp README.txt'; +my $package_name = $package->[2]; +(my $repo = $package_name) =~ s#::#-#g; +$repo = "moocow-the-bovine/$repo"; +$hash{META_MERGE} = { + "meta-spec" => { version => 2 }, + resources => { + homepage => 'http://pdl.perl.org/', + bugtracker => {web=>"https://github.com/$repo/issues"}, + repository => { + url => "git://github.com/$repo.git", + type => 'git', + web => "https://github.com/$repo", + }, + x_IRC => 'irc://irc.perl.org/#pdl', + }, +}; + WriteMakefile(%hash); diff --git a/t/03_baum.t b/t/03_baum.t index 083ce1a..159d715 100644 --- a/t/03_baum.t +++ b/t/03_baum.t @@ -85,9 +85,9 @@ sub wantmodel1 { ##-- test: want: a my ($tmp); $ea_want = pdl(double, [[0,2], [4,0]])->log; - ($tmp=$ea_want->where($ea_want->isfinite->not)) .= logzero; + ($tmp=$ea_want->where($ea_want->isfinite->not)) .= logzero->double; $eb_want = pdl(double, [[6,0], [0,6]])->log; - ($tmp=$eb_want->where($eb_want->isfinite->not)) .= logzero; + ($tmp=$eb_want->where($eb_want->isfinite->not)) .= logzero->double; $epi_want = pdl(double, [4,2])->log; $eomega_want = pdl(double, [2,4])->log; @@ -98,12 +98,12 @@ sub wantmodel1 { ##-- model 2: want: maximized $ahat_want = pdl(double, [[0, 1/3], [2/3, 0]])->log; - ($tmp=$ahat_want->where($ahat_want->isfinite->not)) .= logzero; + ($tmp=$ahat_want->where($ahat_want->isfinite->not)) .= logzero->double; $omegahat_want = pdl(double, [1/3,2/3])->log; $bhat_want = pdl(double, [[1,0],[0,1]])->log; - ($tmp=$bhat_want->where($bhat_want->isfinite->not)) .= logzero; + ($tmp=$bhat_want->where($bhat_want->isfinite->not)) .= logzero->double; $pihat_want = pdl(double, [2/3,1/3])->log; }