remove dependecy Path::Tiny

yseto · yseto · commit 17adf89d0c91 · 2023-01-31T18:27:25.000+09:00
diff --git a/tool/gen_mackerel_check.pl b/tool/gen_mackerel_check.pl
@@ -13,16 +13,14 @@
 sub replace {
     my ($glob, $code) = @_;
     for my $file (glob $glob) {
-        my $content = $code->(path($file)->slurp_utf8, $file);
+        my $content = $code->(slurp_utf8($file), $file);
         $content .= "\n" if $content !~ /\n\z/ms;
 
-        my $f = path($file);
         # for keeping permission
-        $f->append_utf8({truncate => 1}, $content);
+        append_file($file, $content);
     }
 }
 
-
 sub retrieve_plugins {
     sort map {s/^$PLUGIN_PREFIX//; $_} <$PLUGIN_PREFIX*>;
 }

Original file line number	Diff line number	Diff line change
`@@ -13,16 +13,14 @@`
`13`	`13`	`sub replace {`
`14`	`14`	`my ($glob, $code) = @_;`
`15`	`15`	`for my $file (glob $glob) {`
`16`		`- my $content = $code->(path($file)->slurp_utf8, $file);`
	`16`	`+ my $content = $code->(slurp_utf8($file), $file);`
`17`	`17`	`$content .= "\n" if $content !~ /\n\z/ms;`
`18`	`18`
`19`		`- my $f = path($file);`
`20`	`19`	`# for keeping permission`
`21`		`- $f->append_utf8({truncate => 1}, $content);`
	`20`	`+ append_file($file, $content);`
`22`	`21`	`}`
`23`	`22`	`}`
`24`	`23`
`25`		`-`
`26`	`24`	`sub retrieve_plugins {`
`27`	`25`	`sort map {s/^$PLUGIN_PREFIX//; $_} <$PLUGIN_PREFIX*>;`
`28`	`26`	`}`