die did not work from within the loop, trying unloop_all

1 files changed, 5 insertions, 3 deletions

diff --git a/frikanalen/bin/scheduler b/frikanalen/bin/scheduler
index d492aa4..eb40f59 100755
--- a/frikanalen/bin/scheduler
+++ b/frikanalen/bin/scheduler
@@ -55,8 +55,8 @@ my $palwidth = 720;
 my $palheight = 432;
 
 my $ezplaylist = "./frikanalen.m3u";
-#my $ezpid;
-my $ezpid = "4261" ;
+my $ezpid;
+#my $ezpid = "4261" ;
 my $ezcfg = new File::Temp( UNLINK => 0, SUFFIX => '.xml' );
 my $ezcfgname = $ezcfg->filename();
 
@@ -279,7 +279,9 @@ if ( $opts{"s"} ) {
   Event->timer(at => $suicide_time,
       data => {},
       cb => sub {
-       die "Sucide at midnight\n";
+       ezstream_stop();
+       Event::unloop_all();
+       #die "Suicide at midnight\n";
       });
   Event::loop();
   exit 0;