--- AnyEvent/constants.pl.PL	2013/07/30 23:14:32	1.13
+++ AnyEvent/constants.pl.PL	2013/08/21 08:40:28	1.14
@@ -23,9 +23,6 @@
    no warnings qw(exec newline unopened);
 
    BEGIN {
-      my $H    = $^H;
-      my $WARN = ${^WARNING_BITS};
-
       print "sub AnyEvent::common_sense {\n";
       printf "   local \$^W;\n";
       printf "   \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n",