Patch: BUG: <PROTECT> does not accept uppercase PASS parameters:

[Axel Beckert <nospam@thanx>]

Hi!

Axel Beckert wrote:
> <PROTECT> does not accept uppercase PASS parameters:

Here's the patch:

*** /usr/local/bin/wml  Mon Jul 16 23:10:50 2001
--- /usr/local/bin/wml~ Thu Jul 12 15:30:47 2001
***************
*** 677,683 ****
          ($prolog, $arg, $body) = ($1, $2, $3);
          #    unquote the attribute
          $arg =~ s|(['"])(.*)\1\s*$|$2|;
!         if ($arg =~ m|pass=([\d,-]*)|i) {
              $p = $1;
              $p =~ s|,||g;
              $p = "1$p" if $p =~ m|^-|;
--- 677,683 ----
          ($prolog, $arg, $body) = ($1, $2, $3);
          #    unquote the attribute
          $arg =~ s|(['"])(.*)\1\s*$|$2|;
!         if ($arg =~ m|pass=([\d,-]*)|) {
              $p = $1;
              $p =~ s|,||g;
              $p = "1$p" if $p =~ m|^-|;

OK, I know, that was trivial, but fixed is fixed... ;-)

		Regards, Axel
-- 
Axel Beckert - abe@cs.uni-sb.de - http://abe.home.pages.de/
Student of Computer Science, University of Saarland (Germany)
Artificial Intelligence Laboratory (AI Lab), Prof. Dr. W. Wahlster;
WWW-/FTP-Administrator IBFI Schloß Dagstuhl; Students Representative CS
______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com