Skip Menu |

This queue is for tickets about the HTTPD-User-Manage CPAN distribution.

Report information
The Basics
Id: 18526
Status: open
Priority: 0/
Queue: HTTPD-User-Manage

People
Owner: Nobody in particular
Requestors: pheimann [...] cybercash.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.65
Fixed in: (no value)



Subject: Uninitialized value warnings
Used with 'perl -w', warnings appear when deleting users: user_manage: Use of uninitialized value in substitution (s///) at /usr/local/perl/lib/site_perl/HTTPD/GroupAdmin/DBM/apache.pm line 23. user_manage: Use of uninitialized value in split at /usr/local/perl/lib/site_perl/HTTPD/RealmManager.pm line 312.
From: pheimann [...] cybercash.de
These patches didn't seem to make it into the bug report.
*** HTTPD/GroupAdmin/DBM/apache.pm.orig Thu Dec 14 17:41:42 2000 --- HTTPD/GroupAdmin/DBM/apache.pm Thu Mar 9 17:40:23 2006 *************** *** 19,24 **** --- 19,25 ---- my $status; local($HTTPD::GroupAdmin::DBM::DLM) = ","; $group ||= $self->{NAME}; + return unless $self->{'_HASH'}{$uid}; $status = $self->{'_HASH'}{$uid} =~ s/\b$group\b//g; $self->{'_HASH'}{$uid} =~ s/,,+/,/g; $self->{'_HASH'}{$uid} =~ s/^,?(.*?),?$/$1/;
*** HTTPD/RealmManager.pm.orig Wed Feb 22 18:48:01 2006 --- HTTPD/RealmManager.pm Tue Mar 14 12:36:59 2006 *************** *** 306,311 **** --- 306,312 ---- # Shortcut to avoid doing and undoing unnecessary work. if (ref($db)=~/DBM::apache/) { + return unless defined $db->{'_HASH'}->{$user}; # check for Apache's weird combined user/group database format return $self->{groupDB}->{DB} eq $self->{userDB}->{DB} ? split(',',(split(':',$db->{'_HASH'}->{$user}))[1])