Fix usage of global %CONFIG with use string in external commands --- ./lib/Net/LDAP/Shell/Commands/cat.pm 2006-05-08 09:36:47 +0400 +++ ./lib/Net/LDAP/Shell/Commands/cat.pm 2006-05-08 09:41:58 +0400 @@ -5,6 +5,11 @@ use Net::LDAP::Shell qw(shellSearch); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/clone.pm 2004-11-24 09:07:44 +0300 +++ ./lib/Net/LDAP/Shell/Commands/clone.pm 2006-05-08 09:42:12 +0400 @@ -5,6 +5,11 @@ use Net::LDAP::Entry; use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/commands.pm 2006-05-08 09:38:29 +0400 +++ ./lib/Net/LDAP/Shell/Commands/commands.pm 2006-05-08 09:42:22 +0400 @@ -2,6 +2,11 @@ use Net::LDAP::Shell::Util qw(debug error); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/edit.pm 2006-05-08 09:38:31 +0400 +++ ./lib/Net/LDAP/Shell/Commands/edit.pm 2006-05-08 09:42:33 +0400 @@ -5,6 +5,11 @@ use Net::LDAP::Entry; use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/help.pm 2006-05-08 09:38:33 +0400 +++ ./lib/Net/LDAP/Shell/Commands/help.pm 2006-05-08 09:42:44 +0400 @@ -2,6 +2,11 @@ use Net::LDAP::Shell::Util qw(debug error); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/ls.pm 2006-05-08 09:37:52 +0400 +++ ./lib/Net/LDAP/Shell/Commands/ls.pm 2006-05-08 09:42:52 +0400 @@ -5,6 +5,11 @@ use Net::LDAP::Shell qw(shellSearch); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/new.pm 2006-05-08 09:38:04 +0400 +++ ./lib/Net/LDAP/Shell/Commands/new.pm 2006-05-08 09:41:29 +0400 @@ -5,7 +5,10 @@ use Net::LDAP::Shell::Util qw(debug error edit); use Getopt::Long; -use vars qw($DEBUG); +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); use Exporter; use vars qw($VERSION @ISA); --- ./lib/Net/LDAP/Shell/Commands/rm.pm 2006-05-08 09:38:14 +0400 +++ ./lib/Net/LDAP/Shell/Commands/rm.pm 2006-05-08 09:43:07 +0400 @@ -5,6 +5,11 @@ use Net::LDAP::Shell qw(shellSearch); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/search.pm 2006-05-08 09:38:18 +0400 +++ ./lib/Net/LDAP/Shell/Commands/search.pm 2006-05-08 09:43:18 +0400 @@ -5,6 +5,11 @@ use Net::LDAP::Shell qw(shellSearch); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00; --- ./lib/Net/LDAP/Shell/Commands/stub.pm 2004-11-24 09:07:44 +0300 +++ ./lib/Net/LDAP/Shell/Commands/stub.pm 2006-05-08 09:41:45 +0400 @@ -1,13 +1,15 @@ # this is a stub package, used to create new commands - -# you can assume the existence of a %CONFIG variable with everything -# you need for ldap connections -# +use strict; use Net::LDAP::Shell::Util qw(debug error); use Net::LDAP::Shell qw(shellSearch); use Getopt::Long; +# you can assume the existence of a %CONFIG variable with everything +# you need for ldap connections +# +use vars qw(%CONFIG $DEBUG); + use Exporter; use vars qw($VERSION @ISA); $VERSION = 1.00;