From: Michael G Schwern <mschwern@cpan.org>
Date: Wed, 13 Feb 2008 07:04:38 +0000 (-0800)
Subject: Quiet a warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2801ef58d51e890ce4449c6d606f8909e9e57cd1;p=dbsrgits%2FDBIx-Class-Historic.git

Quiet a warning
---

diff --git a/t/cdbi-t/04-lazy.t b/t/cdbi-t/04-lazy.t
index 15e1e1c..1ca413c 100644
--- 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'
     );