[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.9.6-213-gd1408db

[? sunnavy]

The branch, 3.9-trunk has been updated
       via  d1408db6ec81f1f61791bdf0f03fd1ee9129e430 (commit)
      from  71e732fcacb7730a77a13a07fa61435b36617137 (commit)

Summary of changes:
 sbin/rt-test-dependencies.in |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit d1408db6ec81f1f61791bdf0f03fd1ee9129e430
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Nov 29 10:33:24 2010 +0800

    force to refresh as "use $module" does not try to reload

diff --git a/sbin/rt-test-dependencies.in b/sbin/rt-test-dependencies.in
index 5f9d190..35ebebe 100755
--- a/sbin/rt-test-dependencies.in
+++ b/sbin/rt-test-dependencies.in
@@ -390,6 +390,16 @@ foreach my $type (sort grep $args{$_}, keys %args) {
     if ( $args{'install'} ) {
         for my $module (keys %missing) {
             resolve_dep($module, $missing{$module}{version});
+            my $m = $module . '.pm';
+            $m =~ s!::!/!g;
+            if ( delete $INC{$m} ) {
+                my $symtab = $module . '::';
+                no strict 'refs';
+                for my $symbol ( keys %{$symtab} ) {
+                    next if substr( $symbol, -2, 2 ) eq '::';
+                    delete $symtab->{$symbol};
+                }
+            }
             delete $missing{$module}
                 if test_dep($module, $missing{$module}{version}, $AVOID{$module});
         }

-----------------------------------------------------------------------