SVN: toys/rsget.pl/rsget.pl

[sparky]

Author: sparky
Date: Mon Oct 12 02:33:16 2009
New Revision: 10761

Modified:
   toys/rsget.pl/rsget.pl
Log:
- remove any RSGet/*.pm files from %INC if require fails - messy
  but gets the job done


Modified: toys/rsget.pl/rsget.pl
==============================================================================
--- toys/rsget.pl/rsget.pl	(original)
+++ toys/rsget.pl/rsget.pl	Mon Oct 12 02:33:16 2009
@@ -35,6 +35,9 @@
 		warn "Cannot use components from SVN: $@\n";
 		set( "use_svn", "no", "disabled because of errors" )
 			if $settings{use_svn}->[0] eq "yes";
+		foreach my $inc ( keys %INC ) {
+			delete $INC{ $inc } if $inc =~ /^RSGet\//;
+		}
 	}
 }