From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 11 Dec 2021 11:34:39 +0000 (+0200)
Subject: minor optimize using _raw
X-Git-Tag: fortune-mod-3.8.0~32
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=661601aa05399efc337fde339581e5bfdd02d535;p=fortune-mod

minor optimize using _raw
---

diff --git a/fortune-mod/tests/scripts/split-valgrind.pl b/fortune-mod/tests/scripts/split-valgrind.pl
index da4661a..b2c42ed 100644
--- 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%,