diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-05 23:10:56 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-05 23:10:56 -0500 |
commit | ecdfb6cdd80851c54a26c5451fc09152f827988d (patch) | |
tree | 93a87ddd4c8b103c80978f530ed232dd4a9c709b /lib | |
parent | 7a7f88fcf941c9aca05e235470fc6a43abaf32a3 (diff) | |
download | class-refresh-ecdfb6cdd80851c54a26c5451fc09152f827988d.tar.gz class-refresh-ecdfb6cdd80851c54a26c5451fc09152f827988d.zip |
don't try to reload modules that don't correspond to files
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Class/Refresh.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Class/Refresh.pm b/lib/Class/Refresh.pm index 7f045d1..52e0c8c 100644 --- a/lib/Class/Refresh.pm +++ b/lib/Class/Refresh.pm @@ -35,7 +35,8 @@ sub refresh_module { my ($mod) = @_; $mod = $class->_file_to_mod($mod); - my @to_refresh = $class->_dependent_modules($mod); + my @to_refresh = grep { exists $INC{ $class->_mod_to_file($_) } } + $class->_dependent_modules($mod); $class->unload_module($_) for @to_refresh; $class->load_module($_) for @to_refresh; |