[perl #118561] note that the check is fragile and refer to parent.pm

1 files changed, 6 insertions, 0 deletions

diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm
index 6b7d39ac8f..4c4b1d2c88 100644
--- a/dist/base/lib/base.pm
+++ b/dist/base/lib/base.pm
@@ -81,6 +81,12 @@ sub import {
                 eval "require $base";
                 # Only ignore "Can't locate" errors from our eval require.
                 # Other fatal errors (syntax etc) must be reported.
+                #
+                # changing the check here is fragile - if the check
+                # here isn't catching every error you want, you should
+                # probably be using parent.pm, which doesn't try to
+                # guess whether require is needed or failed,
+                # see [perl #118561]
                 die if $@ && $@ !~ /^Can't locate .*? at \(eval /;
                 unless (%{"$base\::"}) {
                     require Carp;