bugfix on parsing inheritance

dxma · Mar 30, 2012 · 4f20900 · 4f20900
1 parent 8e9b0a3
commit 4f20900
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/PerlQt/script/format_qtedi_production.pl b/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;