describe encoding status of DATA handle

[perl5.git] / pod / buildtoc

diff --git a/pod/buildtoc b/pod/buildtoc
index 9c66e93..004a726 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -1,12 +1,12 @@
 #!/usr/bin/perl -w
 
 use strict;
-use vars qw($Quiet);
 use File::Spec;
 use FindBin;
 use Text::Wrap;
 use Getopt::Long;
 
+our $Quiet;
 no locale;
 
 # Assumption is that we're either already being run from the top level (*nix,