MV_UTF8 —
Interchange 5.6.0:
Source: lib/Vend/Util.pm
Line 1181 (context shows lines 1171-1185 in readin():1078)
$file = find_special_page('violation'); $fn = $try . "/" . escape_chars($file) . $suffix; } } else { $fn = $try . "/" . escape_chars($file) . $suffix; } if (open(MVIN, "< $fn")) { binmode(MVIN) if $Global::Windows; binmode(MVIN, ":utf8") if $::Variable->{MV_UTF8}; undef $/; $contents = <MVIN>; close(MVIN); last;
Source: lib/Vend/File.pm
Line 68 (context shows lines 58-72 in writefile():64)
use File::Path; use File::Copy; use subs qw(logError logGlobal); use vars qw($VERSION @EXPORT @EXPORT_OK $errstr); $VERSION = '2.33'; sub writefile { my($file, $data, $opt) = @_; my($encoding, $fallback); if ($::Variable->{MV_UTF8}) { $encoding = $opt->{encoding} ||= 'utf-8'; undef $encoding if $encoding eq 'raw'; $fallback = $opt->{fallback}; $fallback = Encode::PERLQQ() unless defined $fallback;
Source: lib/Vend/File.pm
Line 200 (context shows lines 190-204 in readfile():193)
# If catalog FileDatabase is enabled and there are no contents, we can retrieve # the file from the database. sub readfile { my($ifile, $no, $loc, $opt) = @_; my($contents,$encoding,$fallback); local($/); $opt ||= {}; if ($::Variable->{MV_UTF8}) { $encoding = $opt->{encoding} ||= 'utf-8'; $fallback = $opt->{fallback}; $fallback = Encode::PERLQQ() unless defined $fallback; undef $encoding if $encoding eq 'raw';
Source: lib/Vend/Table/Common.pm
Line 1639 (context shows lines 1629-1643 in new_filehandle():1637)
if($Vend::admin or ! defined($cfg->{LOG_ERROR_SESSION}) or $cfg->{LOG_ERROR_SESSION}) { $Vend::Session->{errors} = {} unless CORE::ref($Vend::Session->{errors}) eq 'HASH'; $Vend::Session->{errors}{$ekey} = $msg; } die $msg if $cfg->{DIE_ERROR}; return $cfg->{last_error} = $msg; } sub new_filehandle { my $fh = shift; binmode($fh, ":utf8") if $::Variable->{MV_UTF8}; return $fh; } 1;