first cut at named parameters

[p5sagit/Function-Parameters.git] / t / defaults.t

diff --git a/t/defaults.t b/t/defaults.t
index fc771c3..7dd885c 100644 (file)
--- a/t/defaults.t
+++ b/t/defaults.t
@@ -101,7 +101,7 @@ is eval('fun ($x, %y = ()) {}'), undef;
 like $@, qr/default value/;
 
 is eval('nofun ($x = 42) {}'), undef;
-like $@, qr/nofun.*unexpected.*=.*parameter/;
+like $@, qr/nofun.*default argument/;
 
 
 {