Perl5.26でカレントディレクトリにパスを通したい

Question

WSL(Windows Subsystem Linux)でUbuntuを利用しています。

Apache2.4.29とPerl5.26を利用し、CGIを使用したサイトを作成しております。

古いサイトが古いPerl(Perl5.8)が開発環境にある際に作成されており、
カレントディレクトリが@INCに入っている前提で作成されております。

Perl5.26ではカレントディレクトリが@INCに入っておらず、動作しません。

各ファイルで

push(@INC,'./');

を実行すれば動作するのですが、ファイルの量が多いので全ファイルを修正するより

LINUXかApache2の設定で@INCにカレントディレクトリを追加できるなら、そちらで対応したいと考えております。
方法をご存知の方がいらしゃいましたらよろしくお願いします。

Answer 1

環境変数PERL_USE_UNSAFE_INCを1に設定すれば以前の動作に戻ります。

perl5260deltaの該当記述

(Apacheは詳しくないので環境変数の設定方法は他の方に譲ります)

但し、これは移行用の一時的な機能とされていますので、今のうちから少しずつ修正していくのが良いと思います。

Answer 2

普通に力技で解決してしまえば？

CGI保存ディレクトリ全体をバックアップしてから試してください。

CGIの保存ディレクトリで、

$ find . -name '*cgi' -or -name '*pl' -exec perl -i.bak -ple 'print "use lib qw(.);" if $. == 2;' {} \;

すれば、@INCに.が入りますよ。そんなに手間じゃないと思いますけど。

挙動が変になったら、bak を戻せばいい。

ライブラリ追加

とんでもない呼出とかしてない場合。

テストしてないのでアレですが、CGIの呼び出しに、

$ perl -Mlib=./ FOO.cgi

とかで対応できるんじゃないですかね。
もちろん、フルパスを与える方が良いですが。

ライブラリ追加2

とんでもない呼出とかしてない場合。

テストどころか、、、なんですが、

/etc/apache2/envvars

に

export PERL5LIB=.

して、apatchの再起動すれば、@INCに、.が入るんじゃないですかね。
只、思い通りの挙動をするかは分りませんけど。

Answer 3

@INCに.を追加するより、@INCに入っているディレクトリに、必要なファイルを移動するのが良いと思います。

Answer 4

面倒なようでも修正に手間をかけるべき事案のように見えます。

こう云う話があります。
https://tutorial.perlzemi.com/blog/20170414149217.html

これは「信用できない検索パスの脆弱性」という問題のようだ。

情報セキュリティ技術動向調査（2009 年上期）「信用できない検索パスの脆弱性」
「/tmp」以外でも他のユーザーが書き込み可能なディレクトリをカレントディレクトリにするようなスクリプトは、この脆弱性を持つといえる。

https://metacpan.org/pod/release/XSAWYERX/perl-5.26.0/pod/perldelta.pod#Removal-of-the-current-directory-(%22.%22)-from-@INC

The perl binary includes a default set of paths in @INC. Historically it has also included the current directory (".") as the final entry, unless run with taint mode enabled (perl -T). While convenient, this has security implications: for example, where a script attempts to load an optional module when its current directory is untrusted (such as /tmp), it could load and execute code from under that directory.

Starting with v5.26, "." is always removed by default, not just under tainting. This has major implications for installing modules and executing scripts.