From xemacs-m  Fri Jan 24 15:25:34 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id PAA23908 for <xemacs-beta@xemacs.org>; Fri, 24 Jan 1997 15:25:33 -0600 (CST)
Received: from engine.ecf.teradyne.com (engine.ecf.teradyne.com [131.101.192.6]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id QAA13517; Fri, 24 Jan 1997 16:27:00 -0500 (EST)
Received: from midnight.eng.ecf.teradyne.com (midnight.ecf.teradyne.com [131.101.192.49]) by engine.ecf.teradyne.com (8.7.1/8.7.1) with SMTP id WAA20669; Fri, 24 Jan 1997 22:23:18 +0100 (MET)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id WAA13643; Fri, 24 Jan 1997 22:23:19 +0100
To: XEmacs Beta Mailing List <xemacs-beta@xemacs.org>,
        Bob Olson <olson@mcs.anl.gov>,
        Ilya Zakharevich <ilya@math.mps.ohio-state.edu>,
        Peter Arius <arius@informatik.uni-erlangen.de>
Subject: xemacs-20.0-b90's cperl-mode.el can't indent attached example
X-Face: 4[iHdXiTu\V3u[~\I)<f9HC);%~nG8`oUqv#uzvs6=\V{AjN6Sn
 c/qi;YLwRmEbt8Y*=j5n(urqY@chPh@J'D"QlqD!C8>*}#kYF[-tYl3VZga/HSOP|K,{L
 Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9
 =w|R6U3_;SH&B<Mfy6Q%#
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: multipart/mixed;
 boundary="Multipart_Fri_Jan_24_22:23:16_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 24 Jan 1997 22:23:17 +0100
Message-ID: <rxs4tg6rcmy.fsf@midnight.ecf.teradyne.com>
Lines: 85
X-Mailer: Red Gnus v0.82/XEmacs 20.0

--Multipart_Fri_Jan_24_22:23:16_1997-1
Content-Type: text/plain; charset=US-ASCII


To the current supporters of cperl-mode.el

Please try indenting the main function in the attached example perl
script (week.pl).


--Multipart_Fri_Jan_24_22:23:16_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="week.pl"
Content-Transfer-Encoding: base64

IyEgL3Vzci9sb2NhbC9iaW4vcGVybAojCiMgQWRyaWFuIEFpY2huZXIsIFRlcmFkeW5lIEdt
YkguIE11bmljaCwgU2F0LCBNYXkuIDA2IDE5OTUuCiMKCnVzZSBEYXRlOjpEYXRlQ2FsYzsK
dXNlIEdldG9wdDo6TG9uZzsKCm1haW4oKTsKCnN1YiBtYWluIHsKICAgIGlmICghR2V0T3B0
aW9ucyAoImhlbHAiLCAidG9kYXkiLCAibGFiZWwiKSApIHsKCXVzYWdlKCk7CglleGl0IDE7
CiAgICB9CiAgICBpZiAoJG9wdF9oZWxwKSB7Cgl1c2FnZSgpOwoJZXhpdCAxOwogICAgfQog
ICAgaWYgKCRvcHRfdG9kYXkpIHsKCW9wZW4gKEFSR1YsICJkYXRlfCIpOwogICAgfQoKICAg
IHdoaWxlICg8PikgewoJY2hvbXA7CglpZiAocy8uKihcd3szfVxzXHd7M31ccytcZHsxLDJ9
XHNcZHsyfTpcZHsyfTpcZHsyfVxzKFx3K1xzKSpcZHs0fSkuKi8kMS8pIHsKCSAgICAjIHdl
ZWtkYXksIG1vbnRoX25hbWUsIGRkLCBoaCwgbW0sIHNzLCB5ZWFyCgkgICAgKEBuZXcpID0g
KHNwbGl0KC9bXHM6XSsvKSlbLTEsIDEgLi4gNV07Cgl9CglpZiAoLy4qKFx3ezN9KVxzKyhc
ZHsxLDJ9KVxzKyhcdytccyspKihcZHs0fSkuKi8pIHsKCSAgICAkbmV3WzJdID0KCSAgICAg
IERhdGU6OkRhdGVDYWxjOjpkYXlfbmFtZV90YWIoCgkJCQkJIERhdGU6OkRhdGVDYWxjOjpk
YXlfb2Zfd2VlaygKCQkJCQkJCQkgICAgICQ0LAoJCQkJCQkJCSAgIERhdGU6OkRhdGVDYWxj
OjpkZWNvZGVfbW9udGgoJDEpLAoJCQkJCQkJCSAgICAgJDIsCgkJCQkJCQkJICAgICApCgkJ
CQkJICAgKTsKCSAgICAkbmV3WzFdID0gJDE7CgkgICAgJG5ld1syXSA9ICQyOwoJICAgICRu
ZXdbM10gPSAwOwoJICAgICRuZXdbNF0gPSAwOwoJICAgICRuZXdbNV0gPSAwOwoJICAgICRu
ZXdbMF0gPSAkNDsKCX0KCSRuZXdbMV0gPSBEYXRlOjpEYXRlQ2FsYzo6ZGVjb2RlX21vbnRo
KCRuZXdbMV0pOwoJaWYgKCRvcHRfbGFiZWwpIHsKCSAgICAoJHcsICR5KSA9IERhdGU6OkRh
dGVDYWxjOjp3ZWVrX251bWJlciAoQG5ld1swIC4uIDJdKTsKCSAgICBwcmludGYoIiUwMmQu
JTRkXG4iLCAkdywgJHkpOwoJICAgIGxhc3Q7Cgl9CglpZiAoQG9sZCkgewoJICAgICgkZGF5
cywkaGgsJG1tLCRzcykgPQoJICAgICAgRGF0ZTo6RGF0ZUNhbGM6OmRhdGVfdGltZV9kaWZm
ZXJlbmNlKAoJCQkJCQkgICBAb2xkLAoJCQkJCQkgICBAbmV3CgkJCQkJCSAgICk7CgkgICAg
cHJpbnRmICgiRGVsdGE6ICAlMmQgJTAyZDolMDJkOiUwMmRcbiIsCgkJICAgICRkYXlzLCAk
aGgsICRtbSwgJHNzKTsKCSAgICAoJHcsICR5KSA9IERhdGU6OkRhdGVDYWxjOjp3ZWVrX251
bWJlciAoQG5ld1swIC4uIDJdKTsKCSAgICBwcmludCAiJF8gV2VlayAkd1xuIjsKCSAgICBA
b2xkID0gQG5ldzsKCX0KICAgIH0KfQoKc3ViIHVzYWdlIHsKICAgIHByaW50ZigiXG4iKTsK
ICAgIHByaW50ZigiVXNhZ2U6XHQkMCBbLWhbZWxwXV0gWy10W29kYXldXSBbZmlsZXNdXG4i
KTsKICAgIHByaW50ZigiXG4iKTsKICAgIHByaW50ZigiUHJpbnQgYW55IGRhdGVzIChpbmNs
dWRpbmcgd2VlaykgYW5kIGRlbHRhIHRpbWVzIGZyb20gZmlsZXMgb3IgU1RESU4uXG4iKTsK
ICAgIHByaW50ZigiRGF0ZXMgbXVzdCBiZSBvZiB0aGUgZm9ybSBhcyBwcm9kdWNlZCBieSB0
aGUgVU5JWCBjb21tYW5kIGBkYXRlJy5cbiIpOwogICAgcHJpbnRmKCJPbmx5IG9uZSBkYXRl
IHBlciBsaW5lIGlzIGV4cGVjdGVkLlxuIik7CiAgICBwcmludGYoIlxuIik7CiAgICBwcmlu
dGYoIlx0LWhcdFByaW50IG9ubHkgdGhpcyBoZWxwIG1lc3NhZ2UuXG4iKTsKICAgIHByaW50
ZigiXHQtdFx0UHJpbnQgdG9kYXkncyBkYXRlIGJlZm9yZSBhbnkgb3RoZXJzIGZyb20gZmls
ZXNcbiIpOwogICAgcHJpbnRmKCJcdFx0KG5vIFNURElOIHN1cHBvcnQpLlxuIik7CiAgICBw
cmludGYoIlxuIik7Cn0KCg==

--Multipart_Fri_Jan_24_22:23:16_1997-1
Content-Type: text/plain; charset=US-ASCII


My analysis is that cperl-mode does not understand if-expressions
except for the simplest ones. modes/perl-mode.el has no problem with
this test case.

I typically go thru perl code from beginning to end with the following
key sequence:

M->
M-C a
M-C q
M-C a
M-C q
and on and on and on

For instant pleasure try C-x h M-C \.

Don't take me wrong, I really like this mode.

Cheers,

Adrian

-- 
  Teradyne GmbH               Adrian Aichner Applications Engineer
  Semiconductor Test Group    Telephone      +49/89/418 61 (0)-208
  Dingolfinger Strasse 2      Fax            +49/89/418 61-217
  D-81673 M"UNCHEN            E-mail         aichner@ecf.teradyne.com

--Multipart_Fri_Jan_24_22:23:16_1997-1--

