Replace

    use FindBin qw($RealBin);
[download]

with

    use File::Spec::Functions qw( rel2abs splitpath catpath );
    my $RealBin = catpath( (splitpath rel2abs($0))[0,1] );
[download]

or

    use File::Spec::Functions qw( rel2abs );
    use File::Basename qw( dirname );
    my $RealBin = dirname( rel2abs($0) );
[download]

for example. And read how perverse FindBin is.

Both solution give wrong results. Suppose /tmp/foo/abc.pl and a symlink from /tmp/abc.pl -> /tmp/foo/abc.pl. Changing cwd to /tmp and call ./abc.pl.
• With the first version I get "/tmp/".
• With the second version I get "/tmp".
• With FindBin I get "/tmp/foo", as expected.
Maybe you wanted to emulate $FindBin::Bin, not $FindBin::RealBin?

Sorry, I don't use FindBin (no one would ever guess that).

Once again we have an example of a feature that FindBin has but doesn't bother to export in a reusable manner (expanding symbolic links).

    use File::Spec::Functions qw( rel2abs splitpath catpath );
    my $RealBin = $0;
    for( $RealBin ) {
        $_ = readlink($_) while -l $_;
        $_ = catpath( (splitpath rel2abs($_))[0,1] );
    }
[download]

or

    use File::Spec::Functions qw( rel2abs );
    use File::Basename qw( dirname );
    my $RealBin = $0;
    $RealBin = readlink($RealBin) while -l $RealBin;
    $RealBin = dirname( rel2abs($RealBin) );
[download]

and evidence that File::Spec could use some additions (realpath, basename, dirname).

- tye        

I think PodMaster is suggesting sanitising the results of what FindBin returns with File::Spec, to obtain a canonical result, so to speak.

I would expect that FindBin itself returns a canonical result, as it always did.