Bug 364743: Crash when renaming components (regression) - Patch by Frédéric Buclin...

diff --git a/Bugzilla/Component.pm b/Bugzilla/Component.pm
index 1b2e8f8d28b6f168df9114b00d807d24385bf0e4..a615e7ae507594be3a5e2e9ebd8bcf743308e106 100644 (file)
--- a/Bugzilla/Component.pm
+++ b/Bugzilla/Component.pm
@@ -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;
 }