no_locale_parse — do not parse or [LC] tags
Applying this pragma on the page level isn't really helpful, as pseudo tags contained in the page are parsed before the pragma directive.
Interchange 5.9.0 (2/2 contexts shown):
Source: code/UserTag/loc.tag
Line 23 (context shows lines 13-27)
# it works with contained tags # UserTag loc Order locale UserTag l Alias loc UserTag loc hasEndTag 1 UserTag loc Interpolate 1 UserTag loc Version $Revision: 1.7 $ UserTag loc Routine <<EOF sub { my ($locale, $message) = @_; if($::Pragma->{no_locale_parse}) { ## Need to do this but might have side-effects in PreFork mode undef $Vend::Parse::myRefs{Alias}{l}; my $begin = '[L'; $begin .= " $locale" if $locale;
Source: lib/Vend/Util.pm
Line 1113 (context shows lines 1103-1117 in parse_locale():1110)
} $text =~ m{\[$Lang\](.*)\[/$Lang\]}s and return $1; $text =~ s{\[(\w+)\].*\[/\1\].*}{}s; return $text; } sub parse_locale { my ($input) = @_; return if $::Pragma->{no_locale_parse}; # avoid copying big strings my $r = ref($input) ? $input : \$input;