Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Already on GitHub? Sign in to your account

Update plugins/symbolbrowser/symbols/parsers/parser_perl.cpp #39

Merged
merged 1 commit into from Aug 15, 2012
Jump to file or symbol
Failed to load files and symbols.
+20 −7
Split
@@ -267,20 +267,33 @@ QString Parser_Perl::parseArgs()
if(*cp=='\0')continue;
if(*cp=='#') continue;
if(strstr(cp,"{"))
- if(!strstr(cp,"shift"))
+ if(!(strstr(cp,"shift") || strstr(cp,"@_")))
continue;
- if(strstr(cp,"shift"))
+ if(strstr(cp,"shift") || strstr(cp, "@_"))
{
- cp=strstr(cp,"$");
+ if(strstr(cp,"$"))
+ cp=strstr(cp,"$");
+ else
+ {
+ if(strstr(cp,"@"))
+ {
+ if((strstr(cp,"@") != strstr(cp,"@_")))
+ cp=strstr(cp,"@");
+ else
+ cp=NULL;
+ }
+ else
+ cp=NULL;
+ }
if(cp)
{
printf("no $!!\n");
if(!res.isEmpty())res.append(", ");
-
- while(*cp !='=' and *cp!='\0')
+ while(*cp !='=' && *cp!='\0' && *cp!=')' && *cp!=';')
{
- res.append(*cp);
- cp++;
+ if(*cp!=' ')
+ res.append(*cp);
+ cp++;
}
}else
continue;