[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-bugs-dist
Subject:    [Bug 78328] Perl function name parser bug
From:       Richard "Lärkäng" <richard () goteborg ! utfors ! se>
Date:       2004-10-30 13:54:00
Message-ID: 20041030135400.22063.qmail () ktown ! kde ! org
[Download RAW message or body]

------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.
        
http://bugs.kde.org/show_bug.cgi?id=78328        




------- Additional Comments From richard goteborg utfors se  2004-10-30 15:53 -------
CVS commit by larkang: 

Don't require a whitespace between function name and the opening bracket

CCBUG: 78328


  M +1 -1      perlparser.cpp   1.5


--- kdevelop/languages/perl/perlparser.cpp  #1.4:1.5
 @ -73,5 +73,5  @ void perlparser::parseLines(QStringList*
   QRegExp   globalre("^[ \t]*our[ \t]+\\(*([ \t,$% *+A-Za-z0-9_]*)\\)* *");
   QRegExp   myre("^[ \t]*my[ \t]+\\(*([ \t,$% *+A-Za-z0-9_]*)\\)* *");
-  QRegExp      subre("^[ \t]*sub[ \t]+([A-Za-z0-9_]+)([A-Za-z0-9_]|([ \t]+[{])?)$");
+  QRegExp      subre("^[ \t]*sub[ \t]+([A-Za-z0-9_]+)([A-Za-z0-9_]|([ \t]*[{])?)$");
   QRegExp    blessre("bless[ \t]*[\\( ]*([,$% *+A-Za-z0-9_]*) *;");
   QRegExp     namere("^[ \t]*([$% *])([A-Za-z0-9_]*) *$");
[prev in list] [next in list] [prev in thread] [next in thread]