X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FUser.pm;h=3b90ec4147c3b095729b84733ea19daa732d6fbd;hb=45f1672bfee50ef8c2ec5938979ee409c5c3db87;hp=52116a7242dcda0bff37bfb76de8b65c7e969187;hpb=f2610fe47aae5a9378db9da21064abc5456688c9;p=debbugs.git

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 52116a7..3b90ec4 100644
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -142,14 +142,14 @@ sub new {
     bless $self, $class;
 
     $self->{filename} = _file_from_email($self->{email});
-    if (not -r $p) {
-	 return bless $user, "Debbugs::User";
+    if (not -r $self->{filename}) {
+	 return $self;
     }
-    my $uf = IO::File->new($p,'r')
-	 or die "Unable to open file $p for reading: $!";
+    my $uf = IO::File->new($self->{filename},'r')
+	 or die "Unable to open file $self->{filename} for reading: $!";
     if ($need_lock) {
         flock($uf, LOCK_EX);
-        $user->{"locked"} = $uf;
+        $self->{"locked"} = $uf;
     }
 
     while(1) {
@@ -220,7 +220,7 @@ sub new {
 
 sub write {
     my $self = shift;
-    my $uf;
+
     my $ut = $self->{"tags"};
     my $p = $self->{"filename"};
 
@@ -318,11 +318,11 @@ sub write {
 sub read_usertags {
     my ($usertags,$email) = @_;
 
-    carp "read_usertags is deprecated";
+#    carp "read_usertags is deprecated";
     my $user = get_user($email);
-    for my $t (keys %{$user->{"tags"}}) {
-        $ut->{$t} = [] unless defined $ut->{$t};
-        push @{$ut->{$t}}, @{$user->{"tags"}->{$t}};
+    for my $tag (keys %{$user->{"tags"}}) {
+        $usertags->{$tag} = [] unless defined $usertags->{$tag};
+        push @{$usertags->{$tag}}, @{$user->{"tags"}->{$tag}};
     }
     return $usertags;
 }
@@ -339,9 +339,9 @@ them out.
 sub write_usertags {
     my ($usertags,$email) = @_;
 
-    carp "write_usertags is deprecated";
+#    carp "write_usertags is deprecated";
     my $user = Debbugs::User->new($email,1); # locked
-    $user->{"tags"} = { %{$ut} };
+    $user->{"tags"} = { %{$usertags} };
     $user->write();
 }
 
@@ -400,7 +400,7 @@ Wraps a line to a specific length by splitting at commas
 
 sub _wrap_to_length {
     my ($content,$line_length) = @_;
-    my $current_line_length;
+    my $current_line_length = 0;
     my $result = "";
     while ($content =~ m/^([^,]*,\s*)(.*)$/ || $content =~ m/^([^,]+)()$/) {
         my $current_word = $1;
@@ -422,4 +422,3 @@ sub _wrap_to_length {
 1;
 
 __END__
-# -*- cperl-set-style: PerlStyle -*-