Fix warning about spurt

Mojo::File::spurt is deprecated in favor of Mojo::File::spew at t/pause_2017/action/add_uri.t line 37.
andk · May 20, 2024 · 4f0bbe8 · 4f0bbe8
1 parent 33751e9
commit 4f0bbe8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/pause_2017/action/add_uri.t b/t/pause_2017/action/add_uri.t
@@ -34,7 +34,7 @@ subtest 'get: user with subdirs' => sub {
         my $user_home = $PAUSE::Config->{MLROOT}."/".PAUSE::user2dir($user);
         my $subdir = path("$user_home/test");
         $subdir->make_path;
-        $subdir->child("stuff.txt")->spurt("Foo");
+        $subdir->child("stuff.txt")->spew("Foo");
 
         my $t = Test::PAUSE::Web->new(user => $user);
         $t->get_ok("$path?ACTION=add_uri");
@@ -103,7 +103,7 @@ subtest 'post: under a Perl6 subdir' => sub {
         my $user_home = $PAUSE::Config->{MLROOT}."/".PAUSE::user2dir($user);
         my $subdir = path("$user_home/Perl6");
         $subdir->make_path;
-        $subdir->child("stuff.txt")->spurt("Foo");
+        $subdir->child("stuff.txt")->spew("Foo");
 
         my $file = $PAUSE::Config->{INCOMING_LOC}."/".$form{pause99_add_uri_httpupload}[1];
         ok !-f $file, "file to upload does not exist";