force list context when random_subset used in dprecated macros

openwebwork · Mar 7, 2024 · 3fb9c0f · 3fb9c0f
1 parent 9cefdf9
commit 3fb9c0f
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/macros/ui/PGchoicemacros.pl b/macros/ui/PGchoicemacros.pl
@@ -800,7 +800,9 @@ sub invert {
 
 sub NchooseK {
 	my ($n, $k) = @_;
-	return random_subset($k, 0 .. $n - 1);
+	# force list context
+	my @return = random_subset($k, 0 .. $n - 1);
+	return @return;
 }
 
 =item [DEPRECATED] shuffle()
@@ -815,7 +817,9 @@ sub NchooseK {
 
 sub shuffle {
 	my ($i) = @_;
-	return random_subset($i, 0 .. $i - 1);
+	# force list context
+	my @return = random_subset($i, 0 .. $i - 1);
+	return @return;
 }
 
 =item [DEPRECATED] match_questions_list()