From dff74657381f2328aa0eeed3b5507cef9b1fc03f Mon Sep 17 00:00:00 2001
From: Glenn Rice <grice1@missouriwestern.edu>
Date: Fri, 18 Nov 2022 19:29:51 -0600
Subject: [PATCH] Fix an errant regex check that doubly base64 encoded Geogebra
 applet states.

I disovered this thanks to an observation of @drdrew's while attempting
to diagnose an issue with a Geogebra problem written by another author.
It turns out that one part of the problem was the applet state being
doubly base64 encoded.
---
 macros/AppletObjects.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/macros/AppletObjects.pl b/macros/AppletObjects.pl
index 15bfcdcde7..05fda490e0 100644
--- a/macros/AppletObjects.pl
+++ b/macros/AppletObjects.pl
@@ -137,12 +137,12 @@ sub insertAll {
 
 	my $base_64_encoded_answer_value;
 	my $decoded_answer_value;
-	if ($answer_value =~ /<XML|<?xml/i) {
+	if ($answer_value =~ /<\??xml/i) {
 		$base_64_encoded_answer_value = encode_base64($answer_value);
 		$decoded_answer_value         = $answer_value;
 	} else {
 		$decoded_answer_value = decode_base64($answer_value);
-		if ($decoded_answer_value =~ /<XML|<?xml/i) {
+		if ($decoded_answer_value =~ /<\??xml/i) {
 			# Great, we've decoded the answer to obtain an xml string
 			$base_64_encoded_answer_value = $answer_value;
 		} else {