Quantcast

Properly handle public properties inherited from parent class.

Johnny C. Lam [10-23-13 - 07:18]
Properly handle public properties inherited from parent class.

git-svn-id: svn://svn.curseforge.net/wow/ovale/mainline/trunk@1091 d5049fe3-3747-40f7-a4b5-f36d6801af5f
Filename
compiler.pl
diff --git a/compiler.pl b/compiler.pl
index 23315b3..032da09 100644
--- a/compiler.pl
+++ b/compiler.pl
@@ -132,6 +132,14 @@ while (defined($r = readdir(DIR)))
 		if ($content =~ m/--inherits (\w+)/)
 		{
 			my $parent = $1;
+			for my $prop (keys %{$sp{$parent}})
+			{
+				$sp{$class}{$prop} = $sp{$parent}{$prop}
+			}
+			for my $method (keys %{$sm{$parent}})
+			{
+				$sm{$class}{$method} = $sm{$parent}{$method}
+			}
 			for my $method (keys %{$m{$parent}})
 			{
 				$m{$class}{$method} = $m{$parent}{$method}