namazu-ml(ring)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

knok@xxxxxxxxxxxxx (NOKUBI Takatsugu) wrote:

>  現在、perl moduleを使用するかどうかはconfigure時に判別していますけど、
>これを実行時に判別させることはできませんでしょうか?

できないことはないけど、不気味な感じがします。 require を

  sub Require {
      my($filename) = @_;
      return 1 if $INC{$filename};
      my($realfilename,$result);
      ITER: {
          foreach $prefix (@INC) {
              $realfilename = "$prefix/$filename";
              if (-f $realfilename) {
                  $result = do $realfilename;
                  last ITER;
              }
          }
          return 0;
      }
      return 0 if $@;
      return 0 unless $result;
      $INC{$filename} = $realfilename;
      return $result;
  }

のように置き換えれば

  if (Require "NKF.pm") {
    NKF.pm を使う
  } else {
    nkf コマンドを使う
  }

といった処理ができますが…。


>  Debianパッケージを作る場合に、そのほうが都合がいいそうなのですけど...

他に何かメリットがあるかな?

-- Satoru Takabayashi
今日は 1992年版の嵐が丘 
音楽は良いけど残酷さが足りません