diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-01-04 17:09:38 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-01-04 17:09:38 -0600 |
commit | 089a862f2686b313aac5ac6646d6d461aaea43c6 (patch) | |
tree | afac854793d391c58db9dc86ea01eab589e9652f | |
parent | 73b6d62558003113da61a5e5926ea67aa47c6ae5 (diff) | |
download | circular-require-089a862f2686b313aac5ac6646d6d461aaea43c6.tar.gz circular-require-089a862f2686b313aac5ac6646d6d461aaea43c6.zip |
cleanup
-rw-r--r-- | lib/circular/require.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/circular/require.pm b/lib/circular/require.pm index 234be83..21299c9 100644 --- a/lib/circular/require.pm +++ b/lib/circular/require.pm @@ -83,7 +83,8 @@ sub _require { $mod =~ s+[/\\]+::+g; $mod =~ s+\.pm$++; $ret = $saved - ? $saved->($file) : do { eval "CORE::require $mod" || die $@ }; + ? $saved->($file) + : (eval "CORE::require $mod" || die $@); } else { $ret = $saved ? $saved->($file) : CORE::require($file); |