X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=de59160663c080356a11a354c5a52b098f0f3ea1;hb=f3adc82a0299652d929b73c718127fa38571eec5;hp=1c54424e0744e8457700fbc77634f74cac072445;hpb=69003f56e5249357c746999c2feec5f44c258472;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 1c54424e..de591606 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -477,12 +477,14 @@ sub find_cmd_name {
 		return undef;
 	}
 	
-	if(defined $Cache{$package}->{mtime} && $Cache{$package}->{mtime } <= $mtime) {
+	if(defined $Cache{$package}{mtime} && $Cache{$package}{mtime } <= $mtime) {
 		#we have compiled this subroutine already,
 		#it has not been updated on disk, nothing left to do
 		#print STDERR "already compiled $package->handler\n";
 		;
 	} else {
+		delete_package($package) if defined $Cache{$package}{mtime};
+		
 		my $fh = new FileHandle;
 		if (!open $fh, $filename) {
 			$errstr = "Syserr: can't open '$filename' $!";
@@ -515,7 +517,7 @@ sub find_cmd_name {
 			delete_package($package);
 		} else {
 			#cache it unless we're cleaning out each time
-			$Cache{$package}->{'mtime'} = $mtime;
+			$Cache{$package}{'mtime'} = $mtime;
 		}
 	}