--- Flex.pm.orig	Fri May  4 22:00:13 2001
+++ Flex.pm	Fri May  4 22:11:48 2001
@@ -42 +42,2 @@
-        eval '$incl->{$gen} = \&' . $gen . '::generate' || die $@;
+        eval '$incl->{$gen}->[0] = \&' . $gen . '::generate' || die $@;
+        eval '$incl->{$gen}->[1] = \&' . $gen . '::validate' || die $@;
@@ -53 +54,2 @@
-    $self->{generate}     = $incl->{$gen};
+    $self->{generate}     = $incl->{$gen}->[0];
+    $self->{validate}     = $incl->{$gen}->[1];