--- AnyEvent/lib/AnyEvent.pm 2009/07/16 01:17:23 1.237 +++ AnyEvent/lib/AnyEvent.pm 2009/07/16 03:48:33 1.238 @@ -1121,9 +1121,9 @@ my $model = "AnyEvent::Impl::$1"; if (eval "require $model") { $MODEL = $model; - warn "AnyEvent: loaded model '$model' (forced by \$PERL_ANYEVENT_MODEL), using it.\n" if $verbose > 1; + warn "AnyEvent: loaded model '$model' (forced by \$ENV{PERL_ANYEVENT_MODEL}), using it.\n" if $verbose > 1; } else { - warn "AnyEvent: unable to load model '$model' (from \$PERL_ANYEVENT_MODEL):\n$@" if $verbose; + warn "AnyEvent: unable to load model '$model' (from \$ENV{PERL_ANYEVENT_MODEL}):\n$@" if $verbose; } }