CPANモジュールをWindowsのみで作成する方法

改行コード編

ソースコードの改行コードは基本的にはLFに揃えたいところです。ただ、Windowsには様々なところでCRLFがついてまわりますが、

注意。いきなりバッドノウハウです。

ActivePerlでは、標準の改行コードがCRLFになっています。また、読み込んだファイルの改行コードがCRLFでもLFでもよろしく計らってくれるようになっています。

そして文字列中の"\n"を勝手にCRLFに変換して出力してしまいます(binmode ':raw'にしてから出力すれば良いんですが)

実際module-setup等のコード自動出力系のモジュールを使うと困ってしまいます。

その妙な気遣いが空回りしている辺り、Perlが変なWindowsの毒気に中てられてしまっていてよろしくありません。全部LFに統一してしまいましょう。

方法は簡単です。環境変数PERLIOに":unix:perlio"を指定します。

C:\>set PERLIO=:unix:perlio

open $fh,'<:encoding(***)','file';

git config --global core.autoCRLF false

モジュールの雛形の作成

モジュールの雛形はModule::Setupで作っています。なんか多分環境変数をいじったせいで、生成されたファイルの中に生のCRが残ってしまうことなんかがありましたが、その辺は適宜手で修正しました。

また、Makeが必要なので、NMAKE.exeを導入しておきましょう。

モジュールを書く

省略

ShipIt! (?)

ごめんなさい。ShipIt使ったことありません。

さぁ、make distしたモジュールをCPANにすぐにアップロード！…してはいけません。

意気揚々とCPANにモジュールをアップロードすると、すぐにこんなメールが自動送信されてきます。

Subject: Failed: PAUSE indexer report SONGMU/Math-CheckDigits-0.01.tar.gz

The following report has been written by the PAUSE namespace indexer.
Please contact modules@perl.org if there are any open questions.
Id

(..省略..)

The distribution contains the following world writable directories or
files and is therefore considered a security breach and as such not
being indexed: Math-CheckDigits-0.01/ Math-CheckDigits-0.01/inc/Module/
(..省略..)
Math-CheckDigits-0.01/xt/03_pod.t Math-CheckDigits-0.01/xt/perlcriticrc
. See also http://use.perl.org/~bart/journal/38127

For your convenience PAUSE has tried to write a new tarball with all the
world-writable bits removed. The file is available for a *very* short
period at
'ftp://pause.perl.org/incoming/Math-CheckDigits-0.01-withoutworldwriteables.tar.gz'.
In case you use this file, please verify carefully whether it is a
suitable replacement.

__END__

超訳：

書き込み権限が付与されているファイルを送ってくるんじゃねーよ。http://use.perl.org/~bart/journal/38127 をみて勉強しな。

書き込み権限落としたtar.gzを
　ftp://pause.perl.org/incoming/***-withoutworldwriteables.tar.gz
に置いておいてあげたから、使いたかったら気をつけて使ってね。ちょっとの間だけだけどね。べっ、別にあなたのためじゃないんだからね！

つまり、Windowsにはパーミッションの考え方がなく、作成したファイルはパーミッションが0777扱いになってしまうんですね。

書き込み権限を落としたtar.gzを自動で生成してくれるようですが、それを毎回わざわざ使うのもかっこ悪いしマナーとしても良くなさそうなので、ローカルで何とかしたいところです。

で、メールに記載されている http://use.perl.org/~bart/journal/38127 を見に行くと、詳しい説明が書いてあります。以下のように記述されているところがあり、hereにリンクが張ってあります。

And that's what I did here. I've used Archive::Tar,

リンク先のURLは以下で、そこになんとtar.gzの書き込み権限を落としてくれるスクリプトのコードが置かれています。

http://perlmonks.org/index.pl?node_id=731935

私はこれを、tarfix4cpan.pl という名前で保存して、以下のようにして、tar.gzの書き込み権限をクリアしています。

tarfix4cpan.pl -i ***.tar.gz

このメールが自動で送られてくるのには感動しました。エラーに対して自動で解決方法が送られるようになってるってのが凄い、CPAN凄い。まあ、同じ過ちを犯した人も多かったんでしょうね。

てことで、Windows上でCPANモジュールを作った流れをざっくり書いてみましたが、多分こんなに頑張らずにVMWareとかMacとかを使うのが良いと思います。

さて、明日はどなたが書くのでしょうか。