summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
4197725)
* More info at: http://www.perlmonks.org/?node_id=644786
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1629
c11ca15a-4712-0410-83d8-
924469b57eb5
&::DEBUG("rssFeed: Searching cache for $url");
open CACHE, "<$file" or return;
&::DEBUG("rssFeed: Searching cache for $url");
open CACHE, "<$file" or return;
- binmode( CACHE, ":utf8" );
+ binmode( CACHE, ":encoding(UTF-8)" );
while (<CACHE>) {
next unless /^$url:/;
while (<CACHE>) {
next unless /^$url:/;
open IN, "<$file" or return;
open OUT, ">$file.tmp" or return;
open IN, "<$file" or return;
open OUT, ">$file.tmp" or return;
- binmode( IN, ":utf8" );
- binmode( OUT, ":utf8" );
+ binmode( IN, ":encoding(UTF-8)" );
+ binmode( OUT, ":encoding(UTF-8)" );
# copy all but old ones
while (<IN>) {
# copy all but old ones
while (<IN>) {
}
if (open(LOG, ">>$file{log}")) {
}
if (open(LOG, ">>$file{log}")) {
+ binmode(LOG, ":encoding(UTF-8)");
&status("Opened logfile $file{log}.");
LOG->autoflush(1);
} else {
&status("Opened logfile $file{log}.");
LOG->autoflush(1);
} else {
&status("WARN: cannot open $file: $!");
return;
}
&status("WARN: cannot open $file: $!");
return;
}
+ binmode(IN, ":encoding(UTF-8)");
# TODO: better filename.
open(OUT, ">>debug.log");
# TODO: better filename.
open(OUT, ">>debug.log");
+ binmode(OUT, ":encoding(UTF-8)");
print OUT "DEBUG: $str\n";
# note: cannot call external functions because SIG{} does not allow us to.
print OUT "DEBUG: $str\n";
# note: cannot call external functions because SIG{} does not allow us to.
delete $param{'SQLDebug'};
return 0;
}
delete $param{'SQLDebug'};
return 0;
}
- binmode(SQLDEBUG, ":utf8");
+ binmode(SQLDEBUG, ":encoding(UTF-8)");
&status("Opened SQL Debug file: $param{'SQLDebug'}");
return 1;
&status("Opened SQL Debug file: $param{'SQLDebug'}");
return 1;