From 0685fe70a5c20257e03c4d8b13d4d30d5f46514e Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@balti.ukcod.org.uk>
Date: Thu, 30 Sep 2010 11:17:05 +0100
Subject: Don't auto-create hash if there was no row returned.

---
 perllib/Problems.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perllib/Problems.pm')

diff --git a/perllib/Problems.pm b/perllib/Problems.pm
index 161306845..788074e37 100644
--- a/perllib/Problems.pm
+++ b/perllib/Problems.pm
@@ -223,7 +223,7 @@ sub fetch_problem {
         from problem where id=? and state in ('confirmed','fixed', 'hidden')
         $site_restriction", {}, $id
     );
-    $p->{service} =~ s/_/ /g;
+    $p->{service} =~ s/_/ /g if $p && $p->{service};
     return $p;
 }
 
-- 
cgit v1.2.3