Re: version check script

[Mitsuru Oka <oka@debian.or.jp>]

岡＠情報科学.高知大です。


"遠藤"すなわちYoshizumi Endoさんより:

>   * shift; と書くと $_ = shift; と同等の意味を持ちます。

遠藤>   59: sub get_cvs_revision {
遠藤>   60:     shift;
遠藤>   61:     return 0 unless m|^(.+)/(.+)$|;

遠藤> 論理的な理由は説明できませんが、60 行目を $_ = shift; にするとうまく動
遠藤> 作します。

遠藤> # なんででしょ？

うーん、不思議。たしかに shift が $_ に入っていないのを確認
しました。仕様の理解不足なのかなぁ(そのような気もする^^;)。
ともかく修正して正しく動作しているらしいことを確認しました:

  http://www.globe.to/~moka/debian/check_newest.pl

ほんと、お手数おかけしました。
--
岡 充 (Mitsuru Oka)
高知大学理学部情報科学科4回生