--- AnyEvent/lib/AnyEvent.pm	2013/05/18 02:59:42	1.412
+++ AnyEvent/lib/AnyEvent.pm	2013/08/21 08:40:28	1.414
@@ -1231,20 +1231,14 @@
 
 package AnyEvent;
 
-# basically a tuned-down version of common::sense
-sub common_sense {
-   # from common:.sense 3.5
-   local $^W;
-   ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00";
-   # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl)
-   $^H |= 0x00000600;
+BEGIN {
+   require "AnyEvent/constants.pl";
+   &AnyEvent::common_sense;
 }
 
-BEGIN { AnyEvent::common_sense }
-
 use Carp ();
 
-our $VERSION = '7.04';
+our $VERSION = '7.05';
 our $MODEL;
 our @ISA;
 our @REGISTRY;
@@ -1253,8 +1247,6 @@
 our $MAX_SIGNAL_LATENCY = $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} || 10; # executes after the BEGIN block below (tainting!)
 
 BEGIN {
-   require "AnyEvent/constants.pl";
-
    eval "sub TAINT (){" . (${^TAINT}*1) . "}";
 
    delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV}