defined %hash will be deprecated in 5.12.

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index a221c74..a7a4973 100644 (file)
--- a/perl/FCGI.PL
+++ b/perl/FCGI.PL
@@ -294,7 +294,7 @@ sub Request(;***$*$) {
 
 sub accept() {
     warn "accept called as a method; you probably wanted to call Accept" if @_;
-    if (defined %FCGI::ENV) {
+    if (%FCGI::ENV) {
        %ENV = %FCGI::ENV;
     } else {
        %FCGI::ENV = %ENV;