Date: Sunday June 9, 2002 @ 23:07
Author: matt
Update of /home/cvs/AxKit-XSP-PerForm
In directory ted.sergeant.org:/home/matt/Perl/AxKit-XSP-PerForm
Modified Files:
PerForm.pm
Log Message:
Fixed POD
Log:
PR:
Index: PerForm.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-PerForm/PerForm.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -b -u -r1.8 -r1.9
--- PerForm.pm 2002/01/24 08:16:04 1.8
+++ PerForm.pm 2002/06/09 22:07:52 1.9
@@ -1,4 +1,4 @@
-# $Id: PerForm.pm,v 1.8 2002/01/24 08:16:04 matt Exp $
+# $Id: PerForm.pm,v 1.9 2002/06/09 22:07:52 matt Exp $
package AxKit::XSP::PerForm;
@@ -698,8 +698,8 @@
sub validate_firstname {
my ($ctxt, $value) = @_;
- $value =~ s/^\s*/;
- $value =~ s/\s*$/;
+ $value =~ s/^\s*//;
+ $value =~ s/\s*$//;
die "No value" unless $value;
die "Invalid firstname - non word character not allowed"
if $value =~ /\W/;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
