Quiet a warning

diff --git a/t/cdbi-t/04-lazy.t b/t/cdbi-t/04-lazy.t
index 15e1e1c..1ca413c 100644 (file)
--- a/t/cdbi-t/04-lazy.t
+++ b/t/cdbi-t/04-lazy.t
@@ -108,7 +108,7 @@ ok($@, $@);
 {
     Lazy->has_a(
         orp     => 'Date::Simple',
-        inflate => sub { Date::Simple->new(shift . '-01-01') },
+        inflate => sub { Date::Simple->new($_[0] . '-01-01') },
         deflate => 'format'
     );