Fixed keys() arguments again.

Must sleep and stop writing code.
zaf · Jan 15, 2012 · 10d16af · 10d16af
1 parent 2f22904
commit 10d16af
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/wolfram/wolfram.pl b/wolfram/wolfram.pl
@@ -76,7 +76,7 @@
 	}
 }
 if (!$results) {
-	foreach (keys ${$answer->{pod}}) {
+	foreach (keys %{$answer->{pod}}) {
 		eval{ print "$_: $answer->{pod}->{$_}->{subpod}->{plaintext}\n"; };
 		eval{ print "$_: $answer->{pod}->{$_}->{subpod}->[0]->{plaintext}\n"; };
 		$results++;