X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fmodules.pl;h=30c5a40c8d9d2d2113ab89e7d0f159ec9bf4e5c4;hb=79ddec2f34e07300f6fdb0803b56746b8399c0f4;hp=791bd9f5f946998f5ef35efebfeb330d76a64c6d;hpb=2f3f96aa653a18c7c48517ca5a587413a59026d1;p=infobot.git

diff --git a/src/modules.pl b/src/modules.pl
index 791bd9f..30c5a40 100644
--- a/src/modules.pl
+++ b/src/modules.pl
@@ -239,25 +239,31 @@ sub reloadModule {
 	return;
     }
 
-    my $age = (stat $file)[9];
-    return if ($age == $moduleAge{$file});
-
-    if ($age < $moduleAge{$file}) {
-	&WARN("rM: we're not gonna downgrade the file. use 'touch'.");
-	return;
-    }
-
     if (grep /$mod/, @myModulesReloadNot) {
 	&DEBUG("rM: SHOULD NOT RELOAD $mod!!!");
 	return;
     }
 
-    my $dc  = &Time2String($age   - $moduleAge{$file});
-    my $ago = &Time2String(time() - $moduleAge{$file});
+    my $age = (stat $file)[9];
+
+    if (!exists $moduleAge{$file}) {
+	&DEBUG("Looks like $file was not loaded; fixing.");
+    } else {
+	return if ($age == $moduleAge{$file});
+
+	if ($age < $moduleAge{$file}) {
+	    &WARN("rM: we're not gonna downgrade the file. use 'touch'.");
+	    return;
+	}
+
+	my $dc  = &Time2String($age   - $moduleAge{$file});
+	my $ago = &Time2String(time() - $moduleAge{$file});
+
+	&VERB("Module:  delta change: $dc",2);
+	&VERB("Module:           ago: $ago",2);
+    }
 
     &status("Module: Loading $mod...");
-    &VERB("Module:  delta change: $dc",2);
-    &VERB("Module:           ago: $ago",2);
 
     delete $INC{$file};
     eval "require \"$file\"";	# require or use?