From: don <>
Date: Fri, 13 Jan 2006 02:57:45 +0000 (-0800)
Subject: [project @ 2006-01-12 18:57:45 by don]
X-Git-Tag: release/2.6.0~630
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4809775c34ec88751619c0b7be01f2d1bbf919b0;p=debbugs.git

[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.
---

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 68ae1c45..7591e4d1 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;