--- radpwtst.orig       2020-11-24 16:19:44.916912364 +0100
+++ radpwtst    2020-11-24 16:20:11.233764048 +0100
@@ -21,11 +21,11 @@
     #   /opt/radiator/radiator, add respective Radius::UtilXS
     #   location to the end of @INC. This allows perlbrew, cpanm
     #   and other Radius::UtilXS installations to be found first.
-    unshift(@INC, $FindBin::Bin);
+    unshift(@INC, $FindBin::RealBin);
 
-    if ($^O ne 'MSWin32' && index($FindBin::Bin, '/opt/radiator/radiator') != -1)
+    if ($^O ne 'MSWin32' && index($FindBin::RealBin, '/opt/radiator/radiator') != -1)
     {
-       push(@INC, File::Spec->catdir($FindBin::Bin, '..', 'radiator-radius-utilxs'));
+           push(@INC, File::Spec->catdir($FindBin::RealBin, '..', 'radiator-radius-utilxs'));
     }
 }

--- goodies/tacacsplustest.orig 2020-11-24 16:21:34.900471775 +0100
+++ goodies/tacacsplustest      2020-11-24 16:22:01.845343806 +0100
@@ -17,13 +17,13 @@
     #   /opt/radiator/radiator, add respective Radius::UtilXS
     #   location to the end of @INC. This allows perlbrew, cpanm
     #   and other Radius::UtilXS installations to be found first.
-    unshift(@INC, File::Spec->catdir("$FindBin::Bin", '..'))
+    unshift(@INC, File::Spec->catdir("$FindBin::RealBin", '..'))
        if ($FindBin::Bin =~ m/goodies\z/s);
 
-    if ($^O ne 'MSWin32' && index($FindBin::Bin, '/opt/radiator/radiator') != -1)
+    if ($^O ne 'MSWin32' && index($FindBin::RealBin, '/opt/radiator/radiator') != -1)
     {
-        push(@INC, File::Spec->catdir($FindBin::Bin, '..', '..', 'radiator-radius-utilxs'))
-            if ($FindBin::Bin =~ m/goodies\z/s)
+        push(@INC, File::Spec->catdir($FindBin::RealBin, '..', '..', 'radiator-radius-utilxs'))
+            if ($FindBin::RealBin =~ m/goodies\z/s)
     }
 }