From ab287a5f4c18ba034ef7e9652ee8b3eb50e2e632 Mon Sep 17 00:00:00 2001
From: Hauke D <haukex@zero-g.net>
Date: Wed, 3 Oct 2018 13:08:24 +0200
Subject: [PATCH] Don't report state non-changes

If the state doesn't actually change, don't report it. This mostly
applies to some rare cases where the listeners could be called for
Ended->Ended.
---
 experiments/democode/perlrunner.html | 2 +-
 web/webperl.js                       | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/experiments/democode/perlrunner.html b/experiments/democode/perlrunner.html
index 27b2ca1..fa16120 100644
--- a/experiments/democode/perlrunner.html
+++ b/experiments/democode/perlrunner.html
@@ -38,7 +38,7 @@ var knownClients = [];
 var currentClient; // which client we're running Perl for, also keeps state
 
 Perl.addStateChangeListener(function (from,to) {
-	if (from==to) return;
+	if (from==to) return; // won't be needed as of v0.09-beta
 	for(var i=0; i<knownClients.length; i++)
 		knownClients[i].postMessage({ perlRunnerState: Perl.state },'*');
 	if (to=="Ended") {
diff --git a/web/webperl.js b/web/webperl.js
index cdb3c1c..46dff53 100644
--- a/web/webperl.js
+++ b/web/webperl.js
@@ -130,6 +130,7 @@ Perl._saveAndRun = function (script) {
 };
 
 Perl.changeState = function (newState) {
+	if (Perl.state==newState) return;
 	var oldState = Perl.state;
 	Perl.state = newState;
 	if (Perl.stateChanged) {