Index: xs/ModPerl/Util/Util_pm
===================================================================
--- xs/ModPerl/Util/Util_pm	(revision 265010)
+++ xs/ModPerl/Util/Util_pm	(working copy)
@@ -47,9 +47,12 @@
             undef &$fullname;
         }
         if (*{$fullname}{IO}) {
-            if (fileno $fullname) {
-                close $fullname;
-            }
+	    eval { # might not work on tied filehandles
+                if (fileno $fullname) {
+                    close $fullname;
+		} 
+            } ;
+        $@ = '' ; # ignore errors
         }
     }