[Psp-checkins] CVS: psp/lib/tools/Parser Form.pm,1.6,1.7

[James E. J. Jr. <mu...@us...>]

Update of /cvsroot/psp/psp/lib/tools/Parser
In directory sc8-pr-cvs1:/tmp/cvs-serv6328/lib/tools/Parser

Modified Files:
	Form.pm 
Log Message:
rx on logical assignment expression apparently forbidden in pre-5.6.

Index: Form.pm
===================================================================
RCS file: /cvsroot/psp/psp/lib/tools/Parser/Form.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Form.pm	21 Nov 2002 16:24:31 -0000	1.6
+++ Form.pm	2 Aug 2003 07:53:52 -0000	1.7
@@ -67,7 +67,8 @@
   my $submit_sub;
 
   if ($form_id) {
-    ($submit_sub ||= $form_id) =~ s/\W/_/g;
+    $submit_sub ||= $form_id;
+    $submit_sub =~ s/\W/_/g;
 
   } else {
     (my $page_name = $this->{page_name} || "") =~ s/page__//;