diff options
Diffstat (limited to 'dist/Storable/Storable.pm')
| -rw-r--r-- | dist/Storable/Storable.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm index c8f6db107d..541776d401 100644 --- a/dist/Storable/Storable.pm +++ b/dist/Storable/Storable.pm @@ -25,7 +25,13 @@ use vars qw($canonical $forgive_me $VERSION); $VERSION = '2.56'; BEGIN { - if (eval { local $SIG{__DIE__}; require Log::Agent; 1 }) { + if (eval { + local $SIG{__DIE__}; + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; + require Log::Agent; + 1; + }) { Log::Agent->import; } # |