From 71979bcbe3e1edaab5ca8ef8e22b43b1296a6136 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Sat, 14 Feb 2004 04:24:51 +0000
Subject: Bug 233645 - fix a number of 'undef' warnings which were killing
 performance for multiple bug change. Patch by gerv; r,a=justdave.

---
 globals.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 825c30af7..9c1b9a7ef 100644
--- a/globals.pl
+++ b/globals.pl
@@ -829,7 +829,7 @@ sub get_product_name {
 
 sub get_component_id {
     my ($prod_id, $comp) = @_;
-    return undef unless ($prod_id =~ /^\d+$/);
+    return undef unless ($prod_id && ($prod_id =~ /^\d+$/));
     PushGlobalSQLState();
     SendSQL("SELECT id FROM components " .
             "WHERE product_id = $prod_id AND name = " . SqlQuote($comp));
-- 
cgit v1.2.3-24-g4f1b