minor optimize using _raw

diff --git a/fortune-mod/tests/scripts/split-valgrind.pl b/fortune-mod/tests/scripts/split-valgrind.pl
index da4661ad793dc689636af36396aa0896833f66a6..b2c42edf8d53ac39249c15cae693802e3148733d 100644 (file)
--- a/fortune-mod/tests/scripts/split-valgrind.pl
+++ b/fortune-mod/tests/scripts/split-valgrind.pl
@@ -15,7 +15,7 @@ use autodie;
 use Path::Tiny qw/ path /;
 
 use FindBin;
-my $code = path("$FindBin::Bin/../data/valgrind.t")->slurp_utf8();
+my $code = path("$FindBin::Bin/../data/valgrind.t")->slurp_raw();
 
 # say $code;
 $code =~ s#\A(.*?^plan tests => [0-9]+;\n)##ms or die;
@@ -29,7 +29,7 @@ sub out
 {
     my ($str) = @_;
 
-    $dir->child( sprintf( 'valgrind%04d.t', $idx++ ) )->spew_utf8(
+    $dir->child( sprintf( 'valgrind%04d.t', $idx++ ) )->spew_raw(
         $start,
 
         qq%\n# WARNING!! This file was GENERATED by $0\n%,