From 4809775c34ec88751619c0b7be01f2d1bbf919b0 Mon Sep 17 00:00:00 2001
From: don <>
Date: Thu, 12 Jan 2006 18:57:45 -0800
Subject: [PATCH] [project @ 2006-01-12 18:57:45 by don] * Test for the
 existance of $p in Debbugs::User::get_user and return    if the file doesn't
 exist; if the file does exist and we can't read    it, die with an
 informative error message.

---
 Debbugs/User.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 68ae1c4..7591e4d 100644
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -45,7 +45,7 @@ use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
 use base qw(Exporter);
 
 BEGIN {
-    ($VERSION) = q$Revision: 1.3 $ =~ /^Revision:\s+([^\s+])/;
+    ($VERSION) = q$Revision: 1.4 $ =~ /^Revision:\s+([^\s+])/;
     $DEBUG = 0 unless defined $DEBUG;
 
     @EXPORT = ();
@@ -147,7 +147,10 @@ sub get_user {
 
     my $uf;
     $user->{"filename"} = $p;
-    open($uf, "< $p") or bless $user, "Debbugs::User";
+    if (not -r $p) {
+	 return bless $user, "Debbugs::User";
+    }
+    open($uf, "< $p") or die "Unable to open file $p for reading: $!";
     if ($need_lock) {
         flock($uf, LOCK_EX); 
         $user->{"locked"} = $uf;
-- 
2.39.2