Fix schedule statements used outside event handlers (addresses #974).

src/Expr.cc

@@ -4297,6 +4297,10 @@ Val* ScheduleExpr::Eval(Frame* f) const
 	if ( args )
 		{
 		TimerMgr* tmgr = mgr.CurrentTimerMgr();
+
+		if ( ! tmgr )
+			tmgr = timer_mgr;
+
 		tmgr->Add(new ScheduleTimer(event->Handler(), args, dt, tmgr));
 		}
 

testing/btest/Baseline/language.event/out

@@ -1,4 +1,6 @@
 event statement
 event part1
 event part2
-schedule statement
+schedule statement in bro_init
+schedule statement in global
+schedule statement another in bro_init

testing/btest/language/event.bro

@@ -9,9 +9,9 @@ event e1()
 	print "Error: this should not happen";
 	}
 
-event e2()
+event e2(s: string)
 	{
-	print "schedule statement";
+	print fmt("schedule statement %s", s);
 	}
 
 event e3(test: string)
@@ -36,7 +36,8 @@ event bro_init()
 	event e1();
 
 	# Test calling an event with "schedule" statement
-	schedule 1 sec { e2() };
+	schedule 1 sec { e2("in bro_init") };
+	schedule 3 sec { e2("another in bro_init") };
 
 	# Test calling an event that has two separate definitions
 	event e3("foo");
@@ -47,3 +48,5 @@ event bro_init()
 	event e5(6);  # TODO: this does not do anything
 }
 
+# scheduling in outside of an event handler shouldn't crash.
+schedule 2sec { e2("in global") };