Index: perl-CGI-FormMagick/perl-CGI-FormMagick.spec
diff -u perl-CGI-FormMagick/lib/CGI/FormMagick.pm:1.16 perl-CGI-FormMagick/lib/CGI/FormMagick.pm:1.17
--- perl-CGI-FormMagick/lib/CGI/FormMagick.pm:1.16	Tue Jul 13 18:00:32 2004
+++ perl-CGI-FormMagick/lib/CGI/FormMagick.pm	Wed Jul 14 17:47:11 2004
@@ -252,6 +252,14 @@
             return $self->{$called_sub_name};
         }
     }
+    elsif ($called_sub_name eq 'destroy')
+    {
+        # do nothing
+    }
+    else
+    {
+        confess "Called method $called_sub_name not supported.";
+    }
 }
 
 =pod
Index: perl-CGI-FormMagick/lib/CGI/FormMagick/Sub.pm
diff -u perl-CGI-FormMagick/lib/CGI/FormMagick/Sub.pm:1.1.1.1 perl-CGI-FormMagick/lib/CGI/FormMagick/Sub.pm:1.2
--- perl-CGI-FormMagick/lib/CGI/FormMagick/Sub.pm:1.1.1.1	Fri Nov 22 11:53:27 2002
+++ perl-CGI-FormMagick/lib/CGI/FormMagick/Sub.pm	Wed Jul 14 17:47:11 2004
@@ -190,8 +190,7 @@
     if (defined $sub) {
         return $sub->(@args);
     } else {
-        carp "FormMagick: Couldn't call '$package\:\:$sub_name'" if $^W;
-        return undef;
+        confess "FormMagick: Couldn't call '$package\:\:$sub_name'";
     }
 }
 
Index: perl-CGI-FormMagick/lib/CGI/FormMagick/Validator.pm
diff -u perl-CGI-FormMagick/lib/CGI/FormMagick/Validator.pm:1.2 perl-CGI-FormMagick/lib/CGI/FormMagick/Validator.pm:1.3
--- perl-CGI-FormMagick/lib/CGI/FormMagick/Validator.pm:1.2	Wed Dec 18 16:27:28 2002
+++ perl-CGI-FormMagick/lib/CGI/FormMagick/Validator.pm	Wed Jul 14 17:47:11 2004
@@ -12,6 +12,7 @@
 
 package    CGI::FormMagick::Validator;
 use strict;
+use Carp;
 
 require    Exporter;
 our @ISA = qw( Exporter );
@@ -579,8 +580,7 @@
         $self->call_fm_validation  ($validator, $fielddata, $args);
 
     if (!$result) {
-        warn "Couldn't find validator $validator\n" if $^W;
-        $result = "OK";   # if we can't figure it out, just go with OK
+        confess "Couldn't find validator $validator!";
     }
 
     $self->debug_msg("Validation result is $result");