From: Stevan Little Date: Mon, 7 May 2007 14:28:49 +0000 (+0000) Subject: foo X-Git-Tag: 0_02~12 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Storage.git;a=commitdiff_plain;h=b577889e7766a2fbe1c70b853baf0193988b71a9 foo --- diff --git a/lib/MooseX/Storage/Engine.pm b/lib/MooseX/Storage/Engine.pm index ca54b40..80f0f94 100644 --- a/lib/MooseX/Storage/Engine.pm +++ b/lib/MooseX/Storage/Engine.pm @@ -151,7 +151,7 @@ my %OBJECT_HANDLERS = ( my ($class, $version, $authority) = (split '-' => $data->{$CLASS_MARKER}); my $meta = eval { $class->meta }; confess "Class ($class) is not loaded, cannot unpack" if $@; - ($meta->version eq $version) + ($meta->version == $version) || confess "Class ($class) versions don't match." . " got=($version) available=(" . ($meta->version || '') . ")" if defined $version;