X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-CGI-Ex;a=blobdiff_plain;f=samples%2Fdevel%2Fdprof_validation.d;fp=samples%2Fdevel%2Fdprof_validation.d;h=a50002457f3ee5b2fa99931111f44fc593356a34;hp=5b02305a23e77a66418ea60796280cb19a9a6aa7;hb=febed4ec71f803b083c3e61b82b9464e9bfb0992;hpb=ed00221d27dfab1e82ec2ea040ab4c399a91c545

diff --git a/samples/devel/dprof_validation.d b/samples/devel/dprof_validation.d
index 5b02305..a500024 100644
--- a/samples/devel/dprof_validation.d
+++ b/samples/devel/dprof_validation.d
@@ -10,18 +10,20 @@ my $form = {
 };
 
 my $val_hash_ce = {
+    'group no_alert'   => 1,
+    'group no_confirm' => 1,
     username => {
         required => 1,
-        match    => 'm/^\w+$/',
-        match_error => '$name may only contain letters and numbers',
-        untaint  => 1,
+        match2    => 'm/^\w+$/',
+        match2_error => '$name may only contain letters and numbers',
+#        untaint  => 1,
     },
     password => {
         required => 1,
         min_len  => 6,
         max_len  => 30,
         match    => 'm/^[ -~]+$/',
-        untaint  => 1,
+#        untaint  => 1,
     },
     password2 => {
         validate_if => 'password',
@@ -30,7 +32,7 @@ my $val_hash_ce = {
     email => {
         required => 1,
         match    => 'm/^[\w\.\-]+\@[\w\.\-]+$/',
-        untaint  => 1,
+#        untaint  => 1,
     },
 };