1

可動タイプを構成する CGI スクリプトとツールには、perl バイナリ名がハードコーディングされています。

#!/usr/bin/perl -w

これらすべてのインスタンスを手動で置き換えない限り

#!/usr/bin/env perl
use warnings;

私のプライベート バージョンの perl (perlbrew でインストール) では、movabletype を実行することは不可能のようです。これらの変更を手動で行わずに、perlbrew perl の下で可動タイプを実行する方法はありますか?

4

1 に答える 1

0

... それらを変更するプログラムを作成しますか?

#! /usr/bin/env perl
use common::sense;
use Tie::File;

tie my @f, 'Tie::File', shift or die $!;
if ($f[0] =~ m,#! */usr/bin/perl( -w)?,) {
  $f[0] = '#! /usr/bin/env perl';
  splice @f, 1, 0, 'use warnings;' if $1
}
untie @f;

みたいな。

于 2013-06-04T05:45:14.743 に答える