diff --git a/lib/WebGUI/International.pm b/lib/WebGUI/International.pm index 9b23a7c26..3ffacaf88 100644 --- a/lib/WebGUI/International.pm +++ b/lib/WebGUI/International.pm @@ -93,7 +93,7 @@ A string that specifies the language that the user should see. Defaults to the =cut -my $safeRe = qr/[^\.\w\d\s\/'\^\;\?]/; +my $safeRe = qr/[^\.\w\d\s\/\^\;\?]/; sub get { my ($self, $id, $namespace, $language) = @_; diff --git a/t/i18n/template.t b/t/i18n/template.t index 1c148d0cc..ff0376447 100644 --- a/t/i18n/template.t +++ b/t/i18n/template.t @@ -67,6 +67,8 @@ while (my $templateAsset = $getATemplate->()) { } while ($template =~ /$macro/msgc) { my ($label, $namespace) = split /,/, $1; + $label =~ tr/'//d; + $namespace =~ tr/'//d; push @templateLabels, { label => $label, namespace => $namespace,