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 | |
| 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
| -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; |