http://qs321.pair.com?node_id=11120768


in reply to Re^2: FindBin and Tainted
in thread FindBin and Tainted

Sure, you can use a copy, to be declared outside of the BEGIN block:

use strict;
use warnings;
use FindBin 1.51 qw( $RealBin );

my $untainted_bin;

BEGIN { ($untainted_bin) = $RealBin =~ /(.+)/; }

use lib "$untainted_bin/../lib";

use MyLib;

[download]

Replies are listed 'Best First'.
Re^4: FindBin and Tainted
by mikkoi (Beadle) on Aug 15, 2020 at 20:18 UTC
    Thanks. This is beautiful. I improved it a little. Probably more portable with File::Spec. 
    use FindBin 1.51 qw( $RealBin );
use File::Spec;
my $lib_path;
BEGIN {
    $lib_path = File::Spec->catdir(($RealBin =~ /(.+)/msx)[0], q{..}, 
+'lib');
}
use lib "$lib_path";

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom