remove warnings on Lint

plack · Jul 19, 2011 · 0003353 · 0003353
1 parent 8430afe
commit 0003353
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Plack/Util.pm b/lib/Plack/Util.pm
@@ -27,7 +27,10 @@ sub load_class {
 sub is_real_fh ($) {
     my $fh = shift;
 
-    return FALSE if -p $fh or -c _ or -b _;
+    {
+        no warnings 'uninitialized';
+        return FALSE if -p $fh or -c _ or -b _;
+    }
 
     my $reftype = Scalar::Util::reftype($fh) or return;
     if (   $reftype eq 'IO'