dump2file("$pfile.$seq", $dtext);
}
}
- $DEBUG or unlink ($sfile, $pfile);
+ if ( ! $DEBUG ) {
+ 1 while unlink ($sfile);
+ 1 while unlink ($pfile);
+ }
}
}
open $fh, ">:encoding($utf_nobom)", $sfile or die "$sfile : $!";
print $fh $str;
close $fh;
- open my $fh, "<:raw", $sfile or die "$sfile : $!";
+ open my $fh, "<", $sfile or die "$sfile : $!";
read $fh, my $cmp, -s $sfile;
close $fh;
use bytes ();