Small fixes

encoding.pm

@@ -371,7 +371,7 @@ Note that C<STDERR> WILL NOT be changed, regardless.
 Also note that non-STD file handles remain unaffected.  Use C<use
 open> or C<binmode> to change the layers of those.
 
-=item C<use encoding I<ENCNAME> Filter=E<gt>1;>
+=item C<use encoding I<ENCNAME>, Filter=E<gt>1;>
 
 This operates as above, but the C<Filter> argument with a non-zero
 value causes the entire script, and not just literals, to be translated from

lib/Encode/Encoding.pm

@@ -11,7 +11,7 @@ use Carp ();
 use Encode ();
 use Encode::MIME::Name;
 
-sub DEBUG { 0 }
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
 
 sub Define {
     my $obj       = shift;

t/guess.t

@@ -18,11 +18,7 @@ use Encode qw(decode encode find_encoding _utf8_off);
 
 #use Test::More qw(no_plan);
 use Test::More tests => 32;
-use_ok("Encode::Guess");
-{
-    no warnings;
-    $Encode::Guess::DEBUG = shift || 0;
-}
+BEGIN { use_ok("Encode::Guess") }
 
 my $ascii  = join('' => map {chr($_)}(0x21..0x7e));
 my $latin1 = join('' => map {chr($_)}(0xa1..0xfe));