Fix IO::CatHandle.slurp-rest exception args

rakudo · May 27, 2017 · 60129a1 · 60129a1
1 parent ce17a2f
commit 60129a1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/core/IO/CatHandle.pm b/src/core/IO/CatHandle.pm
@@ -148,7 +148,7 @@ my class IO::CatHandle is IO::Handle {
         # We inherit deprecated .slurp-rest from IO::Handle. Pull the
         # plug on it in this class, since no one is using this yet.
         # The old IO::ArgFiles used .slurp
-        die X::Obsolete.new: :old<slurp-rest>, :new<slurp>,
+        die X::Obsolete.new: :old<slurp-rest>, :replacement<slurp>,
             :when('with IO::CatHandle')
     }
     method DESTROY { self.close }

diff --git a/t/02-rakudo/07-io-cathandle.t b/t/02-rakudo/07-io-cathandle.t
@@ -8,4 +8,6 @@ plan 1 + @meths;
 
 throws-like { IO::CatHandle.new."$_"() }, X::NYI, $_ for @meths;
 
-throws-like { IO::CatHandle.new.slurp-rest }, X::Obsolete, '.slurp-rest';
+throws-like { IO::CatHandle.new.slurp-rest }, X::Obsolete,
+    :old<slurp-rest>, :replacement<slurp>, :when('with IO::CatHandle'),
+    '.slurp-rest';