Bug 364743: Crash when renaming components (regression) - Patch by Frédéric Buclin <LpSolit@gmail.com> r/a=justdave

git-svn-id: svn://10.0.0.236/trunk@217369 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
lpsolit%gmail.com
2006-12-22 18:10:21 +00:00
parent bec424d922
commit a2ca50da43

View File

@@ -74,7 +74,8 @@ sub new {
unshift @_, $param;
my $component = $class->SUPER::new(@_);
$component->{product} = $product if $product;
# Add the product object as attribute only if the component exists.
$component->{product} = $product if ($component && $product);
return $component;
}