Fixed a warning

This commit is contained in:
JT Smith 2002-07-02 00:17:15 +00:00
parent f9250cd34c
commit b29d22f91e

View file

@ -295,7 +295,7 @@ sub ldapURL {
=cut
sub new {
my (%default, $class, $userId, %default, $value, $key, %user, %profile);
my ($class, $userId, %default, $value, $key, %user, %profile);
tie %user, 'Tie::CPHash';
$class = shift;
$userId = shift || 1;