From e9074a83c8a0a2f255fb449179d86ab0dff27b00 Mon Sep 17 00:00:00 2001
From: usev6 <use_v6@aglaz.de>
Date: Fri, 8 May 2015 23:25:41 +0200
Subject: [PATCH] Replace one instance of dies_ok with throws_like

---
 S03-operators/assign.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/S03-operators/assign.t b/S03-operators/assign.t
index f8ad688d10..619987505a 100755
--- a/S03-operators/assign.t
+++ b/S03-operators/assign.t
@@ -886,7 +886,7 @@ sub l () { 1, 2 };
         $cc = 1;
     };
 
-    dies_ok { called pi = 4 },
+    throws_like { EVAL 'called pi = 4' }, X::Assignment::RO,
         'correct precedence between sub call and assignment (1)';
     is $cc, 0,
         'correct precedence between sub call and assignment (2)';