r5004 - in /packages/libformvalidator-simple-perl/branches/upstream/current: Changes lib/FormValidator/Simple.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Thu Apr 12 12:59:47 2007
New Revision: 5004

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5004
Log:
[svn-upgrade] Integrating new upstream version, libformvalidator-simple-perl (0.22)

Modified:
    packages/libformvalidator-simple-perl/branches/upstream/current/Changes
    packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm

Modified: packages/libformvalidator-simple-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/Changes?rev=5004&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/Changes (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/Changes Thu Apr 12 12:59:47 2007
@@ -1,7 +1,11 @@
 Revision history for Perl extension FormValidator::Simple.
 
+0.22  Tue Mar 6 20:07:00 2007
+    - Applied a patch that lets it work as expected in case *set_messages* is invoked after *check*.
+      Thanks to Yappo.
+
 0.21  Wed Feb 2 17:52:00 2007
-    - Aplied a patch and set_messages_decode_from method was implemented.
+    - Applied a patch and set_messages_decode_from method was implemented.
       Thanks to Yasuhiro Horiuchi.
 
 0.20  Wed Jan 24 20:05:00 2007

Modified: packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm?rev=5004&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm Thu Apr 12 12:59:47 2007
@@ -12,7 +12,7 @@
 use FormValidator::Simple::Constants;
 use FormValidator::Simple::Messages;
 
-our $VERSION = '0.21';
+our $VERSION = '0.22';
 
 __PACKAGE__->mk_classaccessors(qw/data prof results/);
 __PACKAGE__->mk_classaccessor( messages => FormValidator::Simple::Messages->new );
@@ -57,9 +57,13 @@
     my $class = ref $proto || $proto;
     if (blessed $proto) {
         $proto->messages(FormValidator::Simple::Messages->new)->load($file);
-        $proto->results( FormValidator::Simple::Results->new(
-            messages => $proto->messages,
-        ) );
+        if ($proto->results) {
+            $proto->results->message($proto->messages);
+        } else {
+            $proto->results( FormValidator::Simple::Results->new(
+                messages => $proto->messages,
+            ) );
+        }
     } else {
         $class->messages->load($file);
     }