Make pack-as-int/sprintf-%c-ing/chr-ring inf/nan fatal.

[perl5.git] / t / op / pack.t

diff --git a/t/op/pack.t b/t/op/pack.t
index 9340f32..2e3c0f5 100644 (file)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -315,7 +315,7 @@ sub list_eq ($$) {
       if ($^O eq 'vos');
 
     eval { $x = pack 'w', $inf };
-    like ($@, qr/^Cannot compress integer/, "Cannot compress integer");
+    like ($@, qr/^Cannot compress Inf/, "Cannot compress infinity");
   }
 
  SKIP: {