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
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}