Permalink
Browse files

bugfix on parsing inheritance

  • Loading branch information...
1 parent 8e9b0a3 commit 4f2090084c9305f3deaf04ea9ccd34476eb19953 Dongxu Ma committed Mar 30, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 PerlQt/script/format_qtedi_production.pl
@@ -180,7 +180,7 @@ sub __format_class_or_struct {
delete $entry->{property};
# format inheritance line
if (exists $entry->{inheritance} and $entry->{inheritance}) {
- foreach my $s (split /\s*,\s*/, $entry->{inheritance}) {
+ foreach my $s (split /\s*,\s*(?=public|private|protected)/, $entry->{inheritance}) {
next if !$s;
if ($s =~ /^(public|private|protected) (.+)\s*$/o) {
my $name = $2;

0 comments on commit 4f20900

Please sign in to comment.