Найти, если Perl исполняемого портативный

Question

Я пытаюсь пропатчить программу, которая проверяется на портативную версию Perl, как это:

use Config; 
my $is_portable = $Config{userelocatableinc}; 

Это не работает на Strawberry Perl, и, таким образом, программа не удается.

Я использую Perl 5.20.1, 64-бит:

>perl -V:userelocatableinc 
userelocatableinc='undef'; 

Что я могу сделать, чтобы найти, если текущий Perl представляет собой портативный один, клубника или нет?

Answer 1

Вот что вы делаете. perl -V: userelocatableinc скажет вам, был ли он создан для использования относительных путей или нет.

Клубника не построена с этой опцией, поэтому ее не переносят. Если вам нужна эта поддержка, вам придется ее самостоятельно создать, хотя я понимаю, что Perl ActiveState имеет некоторые хаки, чтобы сделать ее переносной.

Я бы подумал о том, чтобы собрать билет с парнями из клубники и посмотреть, следует ли добавить этот вариант в свою сборку.

Answer 2

Это работает для меня:

print "I'm portable" if eval 'require Portable'; 

Портативный Strawberry Perl поставляется с Portable.pm в каталоге производителя, дополняющая File :: HomeDir, среди других.