[patch] /usr/lib/perl5/AdduserCommon.pm

[Brent Verner <brent@rcfile.org>]

Hi,

  This diff fixes a thinko in /usr/lib/perl5/AdduserCommon.pm.

thanks.
  b

--- /usr/lib/perl5/AdduserCommon.pm	Sun Dec 17 02:26:33 2000
+++ AdduserCommon.pm	Thu Dec 21 00:50:17 2000
@@ -13,13 +13,14 @@
 @EXPORT = qw(invalidate_nscd _ dief warnf read_config get_users_groups get_group_members s_print s_printf);
 
 sub invalidate_nscd {
+    my $nscd;
     if(-e "/usr/sbin/nscd")
       {
-        my $nscd = "/usr/sbin/nscd";
+        $nscd = "/usr/sbin/nscd";
       }
     elsif(-e "/usr/bin/nscd")
       {
-        my $nscd = "/usr/bin/nscd";
+        $nscd = "/usr/bin/nscd";
       }
     else
       {