if (not defined $fh) {
die "FATAL: can't write to $outfile, $!\n";
}
- binmode($fh, ':utf8');
print $fh "<sessions>\n";
$fh->close();
if (not defined $fh) {
die "FATAL: can't write to $outfile, $!\n";
}
- binmode($fh, ':utf8');
if (($extension eq 'text') || ($extension eq 'txt')) {
if ($error_only) {
&dump_error_as_text();
if (not defined $fh) {
die "FATAL: can't write to $outfile, $!\n";
}
- binmode($fh, ':utf8');
print $fh "</sessions>\n";
$fh->close();
}
my $fmt = '';
die "FATAL: can't open file $file, $!\n" unless(open(TESTFILE, $file));
- binmode(TESTFILE);
my $fltf = <TESTFILE>;
close($fltf);
# is file in binary format ?