Namazu-devel-ja(旧)

[Yukio USUDA <m6694ha392t@xxxxxxxxxxxxxxx>]

臼田です

Tadamasa Teranishi wrote:

> Yukio USUDA wrote:
> > 
> > >   どうやら mp3.pl の問題のようです。MP3::Info は 0.91 なのですが、
> > > scalar が変えされることを期待している箇所で array が帰っているようです。
> > > もっと新しいものでどうなっているか、あとで確認してみます。
> > >
> > namazu-users-enで提供されたmp3.plを最初に試したときに
> > 私もこれにはまった記憶があります。
> > 少し前にはCPANにはMP3::Infoは古いバージョンしかなかったかと思います。
> ...
> > 現在はCPAN側もメンテナンスされ1.01以降のものしかおいてありません。
> > 0.91にも対応しておくのは考えていませんでしたが、必要でしょうか？
> 
> 対応する必要はないかと思いますが、バージョンチェック(が簡単にできる
> のならば)をして、1.01 以降でのみフィルタが有効になるのが理想では
> ないでしょうか。
> -- 
下記のようになります。
が、mp3ファイルを扱わない環境でもMP3/Info.pmが一度読み込まれることに
なるのでちょっとだけ気になります。
use をせずにバージョンチェックする方法か、
use したあとメモリから開放する方法があればよいのですが
どなたかごぞんじですか。

Index: filter/mp3.pl
===================================================================
RCS file: /storage/cvsroot/namazu/filter/mp3.pl,v
retrieving revision 1.1.2.4
diff -u -r1.1.2.4 mp3.pl
--- filter/mp3.pl       20 Mar 2004 02:45:38 -0000      1.1.2.4
+++ filter/mp3.pl       27 Mar 2004 07:41:02 -0000
@@ -38,7 +38,10 @@
 
 sub status() {
     # http://sourceforge.net/projects/pudge/
-    return 'yes' if (util::checklib('MP3/Info.pm'));
+    if (util::checklib('MP3/Info.pm')) {
+       eval 'use MP3::Info 1.00;';
+        return 'yes' unless $@;
+    }
     return 'no';
 }
 

臼田幸生