note
idsfa
<p>If you're not married to [cpan://File::Find]...</p>
<code>
use Config;
print $Config{prefix},$/;
</code>
<p>assuming that by 'Perl' you mean the directory where your perl was installed. If you mean the binary, use the <i>perlpath</i> key instead. [http://www.perldoc.com/perl5.8.0/lib/Config.html|pod]</p>
<div class="pmsig"><div class="pmsig-195379">
<p><b>Updated:</b><br/>
You cannot rely upon ^X, because you are assuming certain builds of perl when you do so. CygWin acts as Unix:</p>
<code>
$ uname
CYGWIN_NT-5.0
$ perl -e 'print $^X,$/;'
perl
$ /usr/bin/perl -e 'print $^X,$/;'
/usr/bin/perl
</code>
<p>(Thanks to [tye] and [bart] for clarifying which perls show this behaviour.)</p>
<hr/>
<I>Remember, when you stare long into the abyss, you could have been home eating ice cream.</I>
</div></div>
301710
301710