diff options
Diffstat (limited to 'globals.pl')
| -rw-r--r-- | globals.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/globals.pl b/globals.pl index dcfbce883..af3c26a3d 100644 --- a/globals.pl +++ b/globals.pl @@ -409,7 +409,7 @@ sub GenerateCode { $result = ""; foreach my $k (sort { uc($a) cmp uc($b)} eval("keys $name")) { $result .= GenerateCode("\$" . substr($name, 1) . - "{'" . $k . "'}"); + "{" . PerlQuote($k) . "}"); } return $result; } else { |