From ecdfb6cdd80851c54a26c5451fc09152f827988d Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 5 Apr 2011 23:10:56 -0500 Subject: don't try to reload modules that don't correspond to files --- lib/Class/Refresh.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3