Avoid Name "main::sortctrl" used only once warning

perl-ldap · Sep 5, 2001 · 1196abd · 1196abd
1 parent dc16884
commit 1196abd
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/t/70sortctrl.t b/t/70sortctrl.t
@@ -22,6 +22,8 @@
 # This test should be expanded to test sort controls with
 # more than one attribute specified.
 
+use vars qw(%sortctrl);
+
 BEGIN { require "t/common.pl" }
 
 use Net::LDAP::LDIF;